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PUBLISHER'S NOTE 


We at Melbourne House are very excited to be involved 
with the publication of this book, making available as it 
does not only 30 interesting and varied programs for the 
Sinclair ZX Spectrum — undoubtedly the most powerful and most 
affordable small computer in the world - but also showing you 
how to use the computer's complete facilities to its maximum, 
This book offers you not only strategy, gambling and arcade 
games but also utilities, business and educational programs. 


We are also publishers of other titles for the 
Spectrum computer, as a glance at the back pages of this book 
will show, ranging from titles for the complete beginner to 
titles of interest to more experienced users. 


We have a commitment to providing literature and 
software for the Sinclair ZX Spectrum, and as you will note 
by leafing through this book, many of the programs we publish 
are the result of programs that were submitted to us by ZX 
Spectrum owners. 


So if you have a program or article you think would be 
of interest to other ZX Spectrum owners, please write to us. 
We will give you a prompt assessment and reply whether the 
material is something we could use. 

In the meantime, happy computing. 


pee. 


ALRRED MILGROM 
PUBLISHER 
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NOTES ON THE PROGRAM LISTINGS: 


As you are no doubt aware, there are a 
number of different modes available in 
operating the Spectrum keyboard, each 
resulting in a different keyword or graphic 
symbol being recorded by the Spectrum. 


The program listings in this book have been 
specially designed and printed to make 
reading these listings easier. A few words 
may be needed to explain the meaning of some 
of the symbols: 


This symbol is used whenever 
a space is to be entered in the 
program. This may be in a graphics 
character string, or it may be in 
a PRINT statement. 

Spaces have been used in these 
programs to aid readability, and 
in some cases are essential to 

the proper working of the 

program. 


This symbol is used to indicate that 
the CAPS SHIFT key needs to be held 
down for the next character. 


This symbol is used to indicate that 
you need to be in EXTENDED mode to 
enter the following character. 

EXTENDED mode is obtained by pressing 
both the CAPS SHIFT and SYMBOL SHIFT 
keys together. See your Spectrum 

manual for more details. 


This symbol is used to indicate that 
you need to be in GRAPHICS mode to 
enter the following character. 

GRAPHICS mode is obtained by pressing 
the "9" key while holding down the 

CAPS SHIFT key. See your Spectrum 

manual for more details. 


Indicates INVERSE VIDEO mode. 
Press "4" and CAPS SHIFT keys 
together. 


Indicates TRUE VIDEO mode. 
Press “3" and CAPS SHIFT keys 
together. 


Further notes on the use of EXTENDED MODE 


In this book we have made use of all the facilities 
of the ZX Spectrum, inlcuding the ability to specify 
the paper and ink color from within a program line or 
PRINT statement. 


This is achieved by entering EXTENDED MODE, and then 
pressing the appropriate color key (for paper color) 
or the CAPS SHIFT key and the appropriate key (for 
ink color). 


For example, this is shown in the book as : 
ExT Sus 5 (cheose ink color 3) 


or EXI 6 (choose paper color 4). 


To demonstrate this, the following may helo : 
EXI SHI3: 1. Press both the CAPS SHIFT 
and SYMBOL SHIFT keys. 
The “K" cursor should now 
have changed to an "E 
2. Press the CAPS SHIFT key. 
While holding this key 
press the " key. The 
cursor will now be a "kK" 
again. 

ERI 4 + 4, Press beth the CAPS SHIFT 
and SYMBOL SHIFT keys. 
The "K" cursor should now 
have changed to an "E", 

2. Press the “&" key, 
The cursor will now be a 
"KY again, 


Leapfrog 


Copyright (c) by Beam Software 


The game of leapfrog is a nice simple one: 


You start off with two opposing sets of frogs, and each 
frog can only move to an adjacent space or leap over one 
frog. 


XXXxX-0000 
123456789 


So, as a first move, for example the frog at position 4 can 
move to 5, or the frog at 6 can move to 5, or the frog at 3 
can leap over the frog at 4 to land at 5, or the frog at 7 
can leap over the frog at 6 to land at 5. 


The object of the game is to try to get all the frogs on 
the left to the right, and vice versa in the least number of 
moves. It's great fun! 


Structure of the program: 


The first part of any program is to initialise any variables 
that might be required. In this case, we want to define the 
initial position of the frogs, and set the number of moves 
taken so far to zero. 


An overview of the program reveals the following structure: 


Initialise variables 
Print Print position of frogs 
Check if finished 
Tf yes, then go to Finish 
Input Enter player's move 
‘ Check if move is allowed 
If not, go to Input again 
Add one to the number of moves 
Make the move and go to Print 
Finish Congratulate player 
Ask player if he wants to play again 
Tf yes, then RUN again 


This simple "top-down!" approach gives us an overview of the 


program, and lets us understand the program should we wish to 
make any changes at a later stage. 


Structure of the variables 


For this program we shall be using "string variables" to 
define the position of the frogs. A string variable is easy 


to manipulate in this context, and makes printing very fast. 


We define a$ as the original position of the frogs and b$ as 
the present position. We can use the same variables to check 
if we are finished (see line 150). 


We use the variables "to" and "from" to represent the 
position the from is moving to and from. Because a frog can 
only move into an empty position we can check this easily 
(see line 200), 


The rest of the program is very straightforward, with "count" 


being the number of moves taken. 


Running the prograt 


The program expects a 2-digit input to define the moves to 
and from. It will accept as a valid first move only the 
following inputs: 

55 45 6575 


Happy leapfrogging! 


LEAPFROG 


100 LET aé = " GRE SHI 8. GRA SHI 8. 
GBS SHI 8. GRS SHI 3... 
GBS SHI 6. GAS SHI 6. 
GBS SHI 4. GRA SHI 6” 

110 LET b$ = a& 

120 LET count = 0 

130 CLS 

140 PRINT AT 5, 33 b*3 AT 6, 35 
442052445.647.029" 

150 IF b*(1 TO 7) = a#(11 TO 17) AND 
b#(11 TO 17) = a$(1 TO 7) THEN GO TO 250 

160 INPUT “Please.wenter syour smove"; k# 

170 IF LEN k# <> 2 THEN TO 160 

180 LET from = 28( CODE k$(1)-48)-1 

190 LET to = 2%( CODE k#(2)-48)-1 

200 IF b&(to) <> "4" OR ABS (to-from) > 4 
THEN GO TO 160 

210 LET count = count+1 

220 LET b#(to) = b$(from) 

230 LET b$(from) = "4" 

240 GO TO 140 

250 PRINT "Yousdidsitsina"3} counts “.moves" 

260 INPUT “Another .go?"5 k¢ 

270 IF CODE k# = 121 THEN RUN 


Number Reversal 
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This is a puzzle to test your powers of logic! You start 
with 9 numbers, from 1 to 9, in a random order. 


The aim is to get them into order in as few moves as 
possible. The only facility you have to change the order of 
the numbers is the ability to "reverse" the order of some of 
the elements. 


For example, if you had the first three numbers "3 2 1", 
then reversing the first three will give you "1 2 3". If you 
had reversed only the first two, you would have had "3 1 2". 


Note that you can specify only how many numbers you would 
like reversed. This program is quite short, so entering it 
into your computer will be easy, and it will certainly 
challenge your powers of logic. 


Programming notes: 


This program highlights the use of arrays, and also shows 
how easily readable programs can be if you are prepared to 
take the trouble to define meaningful variable names. 


Look at the program listing - there is no need for a 
separate program structure, because all the information you 
need is there. 


Note also that it is possible to put spaces at the beginning 
of lines to make FOR-NEXT loops, etc., more obviously 
highlighted. 


The use of variable names for line numbers in GOTOs and 
GOSUBs is also a very efficient way of keeping track of what 
is going on, It also minimises the work that has to be done if 
you use the RENUMBERing routines provided later in this book. 


Use of arrays: 


The use of arrays allows us to easily refer to a particular 
element without having to have a separate name for each 
element. 


At the beginning of the program we dimension the array, and 
this sets each member of the array to zero. Note that the size 
of the array is defined in a variable, so {f you want to test 
your logic with a longer list of numbers you can do so by 
simply changing that one line. 


Note the way that the numbers are made to appear in random 
order - we take each number in turn and swap it with the 
number in a randomly chosen position, This algorithm is also a 
very useful and efficient way of shuffling cards in a card 
program. 


NUMBER REVERSAL 


100 LET print = 600 

110 LET reverse = 400 

120 LET input = 300 

130 LET size = 9 

140 DIM a(size) 

150 FOR c = 1 TO size 

160 LET afc) = c 

170 NEXT c 

180 FOR c = size TO 2 STEP -1 
190 LET swap = 1+ INT (size® RND ) 
200 LET temp = a(c) 


210 LET a(c) = a(swap) 
220 LET a(swap) = temp 
230 NEXT c 


240 LET count o 

250 GO SUB print 

300 INPUT “How smany .numbers.do.you.wish.to 
areverse?."3 howmany 

310 IF howmany = 0 THEN STOP 

320 IF howmany size THEN GO TO reverse 


330 PRINT size} “sis.maximum,.that.cansbe 
aswapped" 

340 GO TO input 

400 PRINT “Reversing."3 howmany3 “numbers” 


410 LET count = count+1 

420 FOR d = 1 TO INT (howmany/2) 
430 LET temporary = a(d) 

440 LET mirror = howmany-d+1 


450 LET a(d) = a(mirror) 
460 LET a(mirror) = temporary 
470 NEXT d 


480 GO SUB print 
490 FOR d = 1 TO size 

500 IF a(d) <> d THEN GO TO input 

510 NEXT d 

S20 PRINT “You,did,it.in."§ count; “.moves.” 
530 STOP 

600 POKE 23692, 255 

610 FOR d = 1 TO size 

620 PRINT a(d)3 “a"3 

630 NEXT d 

640 PRINT 

650 RETURN 


Asteroids in Space 
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You are travelling through space in your spaceship, when 
suddenly you encounter a space storm. 


You can steer your ship past the debris only by using your 
rudder controls (key '5' to go left, and key 'B’ to go right) 
— hyperdrive has been disabled by one of the meteors. 


As if this was not bad enough, if you do survive the meteor 
storm, you will find you have become so disoriented that you 
are travelling the wrong way in the space lanes. All the 
space traffic is coming directly at you. 


You must steer past these in the same way as before, bu 
the space ships are bigger than the meteor debris, so it 1s 
more difficult. 


Eventually, you will CRASH! When you do, you will find the 
survival rating on the screen of your spaceship console. 


Program structure: 


This program simulates the use of the SCROLL function, 
which is available on most micro computers, but not on the 
Spectrum. 


You are no doubt familiar with SCROLL already, as for 
example the program listing scrolls, but you may have noticed 
there is no command directly available to you to achieve the 
same result. 


The same result can however be obtained by changing the 
value of the variable SCR-CT (this is achieved by POKEing 
23692,- see Machine Code Monitor notes for more information 
about PEEK and POKE), and then printing two spaces at the end 
of the screen (ie AT 21,31). 


When the display is SCROLLed, your ship will move with 
everything else, so it is overwritten with blanks. then 
printed again in the correct position. In this way, your ship 
stays on the same line in the screen, while everything else 
moves. 


The asteroid debris and space ships appear randomly on the 
bottom of the screen, and the information about their 
position is kept in variables a, b, c, d, and e, with e being 
the closest. By comparing e with the position of your ship, 
the program determines whether you are about to crash. 


The screen is SCROLLed two lines in each cycle, so that 
there are only 11 asteroid debris on the screen at any one 


time. You could SCROLL only once in each cycle, but this 
means there would be far too much asteroid debris on the 
screen, and you would have to keep track of twice as many 
variables. 


Improving the program: 


The program has been deliberately kept simple to allow you 
to improve it. 


The first step that can be done is to use the facilities of 
the Spectrum's user defined graphics to define really 
exciting shapes for your ship and for the asteroid debris. 


Secondly, you will note that there are two places in the 
program where sound is generated through the BEEP command. 
The purpose of these commands is not merely to create sound! 
Try deleting those lines, and I'm sure you will find the 
program runs much too fast for you. 


You can therefore speed up or slow down the program by 
changing the length of the note or number of notes to be 
played. 


There is also sufficient time in each cycle for you to 
write in additional ships attacking you, adding the ability 
for you to fire at the asteroids, and so on. 


ASTEROIDS IN SPACE 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


450 
460 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET INT (27% RND ) 
PRINT AT 21, r3 INK (4% RND )3 a® 
POKE 23692, 255 
PRINT AT 21, 313 
BEEP .3, 0 
PRINT AT 10, x-25 “soooen” 
PRINT AT 11, x3 " GRA 6 GRA SHI 6” 
PRINT AT 21, 313 "14" 
LET n = net 
IF n = 100 THEN 

LET af = " GRS SHI 6 GRE SHI 7” 
IF n = 104 THEN LET t = 2 
LET 
LET 
LET 
LET 
LET 
PRINT AT 10, x-23 » 2000 ou 
PRINT AT 11, x3 " GRA 6 GRE SHI 6" 
IF x >= e-2 AND x <= e+t THEN GO TO 410 
BEEP .2, 5 


IF INKEY$ = "S" THEN LET x = x-t 
IF INKEY$ = "8" THEN LET x = x+t 
GO TO 180 

PRINT AT 11, x-13 “CRASH' 

PRINT AT 0, O53 “SCORE = “3 n 


BEEP 2, -12 

PRINT AT 21, 03 "Presssany.key.to.try 
aagain" 

IF INKEY$ = “ 

RUN 


THEN GO TO 450 


Spectrum Clock 
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DESCRIPTION 


This program is a simulation of a REAL-TIME CLOCK; 
both normal clock and digital clock are implemented and 
displayed on the screen. You will be amazed at the 
accuracy of the SPECTRUM CLOCK; not only that, you can 
also set the ALARM and the SPECTRUM CLOCK will remind you 
by generating alarm tone. 


HOW TO RUN THE PROGRAM 


Type RUN followed by (ENTER) to start the program 

You will need to enter the HOUR, MINUTE, SECOND which 
you want the clock to start. Note that HOUR is entered in 
a 24 hour basis; it means that you have to type in 13th 
hour instead of 1 PM. 

The program checks the validity of the input, so you 
can't type a negative number or any number greater than 
60 for minutes and seconds; they won't be accepted. 

You will have to input in a similar way if you want 
to set the alarm. 


One method of using this alarm effectively is as an 
EARLY MORNING ALARM : Run the program at night, setting 
the correct time and the alarm, then turn the TV off to 
save electricity. 


The SPECTRUM will continue running the program until the 
alarm time is reached, and the sound of the internal 
beeper may wake you up. 


PROGRAM STRUCTURE 

The program uses the SPECTRUM frame-counter as its 
internal clock. The frame-counter is stored in three 
bytes starting at memory location 23672 with least 
significant bytes first. Every 20 ms, the frame-counter 
is increased by 1; in other word, the total of counter 
divided by fifty will give the number of seconds from 
start of count. 


The structure of the program is as follow : 


INTTIALISATION 


INPUT HOUR MINUTE and SECOND 

IF SET-ALARM 
INPUT ALARM HOUR MINUTE and SECOND 
DISPLAY ALARM TIME 


10 


DRAW CLOCK FACE 

CALCULATES INITIAL VALUE OF FRAME COUNTER BYTES 
POKE VALUE INTO FRAME COUNTER WHEN ANY KEY PRESSED 
DEFINE FUNCTION : no. of seconds since start 
INITIALISE STARTING TIME 


DETERMINE HOUR HAND POSITION 

DETERMINE MINUTE HAND POSITION 

DETERMINE SECOND HAND POSITION 

DRAW SECOND HAND 

DRAW MINUTE HAND 

DRAW HOUR HAND 

CALCULATE AND DISPLAY DIGITAL GLOCK 
determine hour minute second digits 
adjust for cross noon boundary 
IF ALARM TIME MATCHES WITH DIGITS 

FLASH CLOCK and GENERATE ALARM 

FETCH FRAME COUNTER UNTIL ONE SECOND HAS PASSED 

DRAW OVER SECOND HAND 

IF SAME MINUTE THEN GO TO S: 

DRAW OVER MINUTE. HAND 

1F SAME HOUR THEN GO TO M: 

DRAW OVER HOUR HAND 

GO TO H: 


SPECIAL FEATURES 
DEF FN t() is used to facilitate frequent 
referencing of FRAME COUNTER. 

SIN and COS functions are used to draw clock hands. 
SECOND hand is moved every secon MINUTE hand is 
moved every minute; HOUR hand is moved every 12 minutes. 

Program takes care of AM/PM setting. 
Chécking is built into the program to ensure validity 
of time input. 


SPECIAL NOTES 

The SPECTRUM CLOCK is accurate up to 10 seconds 
deviation per day provided that the computer is only 
running this program without generating any INPUT/OUTPUT 
including sound. Note that the frame counter is no 
longer an accurate clock once any input/output is 
performed because the frame counter is not incremented 
during that time. 

Once Alarm is reached, the clock will need to be 
reset; that is, if you want :o use the clock again you 
will need to RUN the program again . 


uw 


SPECTRUM CLOCK 


100 GO SUR 3460 

110 LET c £30 

120 DEF FN t() = INT ( (655368 
PEEK + PEEK 25672)/ 
=REM no.of asecond.since start 

130 REM Now.we.start .the.clock 

140 LET t1 = FN EO 


150 LET (t1/72 

160 LET 

170 LET SIN 4 = LET hy = SOx COS h 
180 LET (t1760) 

190 LET 

200 LET SIN m = LET my = 60% COS m 


210 LET a = tite 
* REM a.is angle .of .second .hand 
inaradian 
220 LET sx = 728 SIN a = LET sy = 72% COS a 
230 PLOT 131. 91 = DRAW sx. sy 
= REM Draw.second .hand 
240 PLOT 131, 91 = DRAW mx. my 
250 PLOT 131, 91 = DRAW hx, hy 
260 GO SUB 740 
270 LET t = FN tO) 
280 IF t <= ti THEN 60 TO 270 
+ REM wait .until time next shand 
290 LET t1 = t 
300 PLOT 131, 91 + DRAW OVER 13 sx. sy 
+ REM .erase.second shand 
310 IF INT (t1/60) <= mi THEN GO TO 210 
320 PLOT 131, 91 = DRAW me, my = PLOT 131, 91 
= DRAW OVER 13 mx. my 
330 IF INT (t1/720) <= hi THEN 60 TO 180 
340 PLOT 131. 91 = DRAW hx. hy = PLOT 131, 91 
= DRAW OVER 13 hx. hy 
350 6O TO 150 
EXI SHI © BORDER 7 + PAPER 7 = INK © = OVER 0 
FLASH cL”s 
PRINT "Please .input .which -hour?" 
= PRINT "(G.-,25)" 
370 INPUT H = IF H < o OR H > 
380 PRINT FLASH 13 INK 2: H 
390 LET D = 0 = IF H >= 12 THEN LET D = 1 
= LET H = H-12K(H <> 12) 
400 PRINT “Which MINUTE?" = PRINT ”(O.-.59)" 
410 INPUT M = IF M < 0 OR M > S9 THEM GO TO 410 
420 PRINT FLASH 13 INK 13 
s 
s 


THEN 6C TO 370 


450 PRINT “Which SECOND?” 
440 INPUT S = IF S < 0 OR 
450 PRINT FLASH 1; INK 
460 PAUSE SO = CLS 
470 PRINT “Do.you.want .to.set .the .ALARM.?" 
= PRINT "(y.or.n)” 
480 INPUT ag 
2 IF af <> 


PRINT “(o.-59) " 
> 59 THEN 60 TG 4a0 


"AND a® <> 


THEN GO TO 48q 
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490 IF aS = "n" THEN LET al = 0 
= BORDER © = PAPER © = INK 7 = CLS 
= GO 10 63 
LET al = 1 = PRINT = PRINT “Hour?."3 
INPUT ah = IF ah < @ OR ah > 24 THEN GO TO SiO 
PRINT ah = LET ad = 0 
= IF ah > 11 THEM LET ad = 1 
= LET ah = ah-(ah <> 12)#12 
PRINT = PRINT “Minutes? ."3 
INFUT am 
: IF am < 0 OR am > S9 THEN GO TO 540 
PRINT am 
PRINT ¢ PRINT "Second? "3 
INPUT as 
2 IF as < 0 OR as > 59 THEN GO TO 570 
PRINT as = PAUSE 50 
REM Draw clock .face 
PAPER O = &I SHJ © BORDER 0 + INK 7 = CLS 
+ PRINT AT 20, OF "ALARM" 
= PRINT ang 5 am es as “a"s 
410 IF ad = G THEN PRINT "AN" = GO TO 630 
420 IF ad = i THEN PRINT “PM 
630 FOR mn = i TO 12 
PRINT AT 10-10" COS (m/e* PI) 
+ JeriGe SIN (n/6 PIO A 


650 NEXT 9 
660 LET dh = H = LET dm = ™ = LET ds 
670 LET 7 = (H*36004M460+5) £50 


680 LET bi = T- INT \1/256) #256 
490 LET b2 = INT (1/256)- INT (1/256°2) #256 
700 LET bS = INT (1/256°2)— INT (1/2563) #256 
7iG IF INKEYS = "" THEN GO TO 710 
£ 23674, pS = FOKE 23673. b2 
> FORE 23672, bl 
730 RETURN 
74) LET ds = ti- INT (ti/6o) 460 
= LET dm = INT (ti/60)— INT (1/3600) £60 
= LET dh = INT (£1/3600) 
7a0 IF ds = 0 THEN PRINT AT G, 03 


iF dh >= 13 THEN LET dh = dh-i2 

IF dh <> 12 OR ds <> 0 OR dm <> 0 
THEN GO TD B10 

© THEN LET D = 1 = LET gh = 12 
= G0 TO B10 

790 IF D = 1 THEN LET D = 0 + LET dh 

200 LET dh = dh-(dh = 12 AND D = O)4a12 


Bid PRINT AT 3, O3 dh3 " 2"% dmz “ ="3 FLASH 1 


3 ods 

PRINT AT O, 85 "."3 

IF D = 0 THEN PRINT "AM" 

IF B= 1 THEN PRINT "PM" 

iF al = 9 THEN RETURN 

JF ah dh OR am <> dm OR as <» os OR ad <> D 
THEN RETURN 


#70 PRINT AT GU. Gs dhe" 2" 3 dme " 


13 


FOR s = 22829 TO 232 
POKE s. 128+ FEEK = 
BBO BEEP 0.5, 27 = BEEF 0.5. 20 

= IF INKEY@ = “" THEN GO TO 870 
890 RETURN 


a 


oul 
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3-D Mazeman 
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You are trapped in a maze. You must get out! The pressure 
is getting to you. 


You move Forward, a doorway appears on the left, quick! 
Oh no, . . . another dead end! 


Will you ever get out of here alive? 

This amazing 3-dimensional simulation places you right in 
the maze, with the task of getting out. The only thing to be 
thankful for is that there are no monsters here!! Yet!! 


You can take as long as you like, but the time you take {s 
being measured. At each position you will see a realistic 
perspective view. You can turn left or right (using the "o 
and "p" keys respectively), move forward (using the space 
bar) or turn around (using the "r" key). 


If you get really lost, it might be a good idea to draw a 
map. 


Program structure: 


This program uses the PLOT and DRAW functions of the 
Spectrum. 


At each point down the corridor, there is the option of the 
doorway being open or the doorway being closed. This program 
uses a different subroutine to draw the doorway depending on 
its distance from the observer and depending on whether it's 
open or not. 


This explains all the different subroutines from 6000 to 
8508. 


A separate data table (lines 9100 - 9208) defines the 
particular maze you are in. 


Defining your own mazi 


The maze used here is drawn on a 9 x 9 grid, somewhat like a 
Chess board, and each position in the maze is represented by 
a square on the board. 


Obviously each square can have walls in any of the four 
directions. This program uses two arrays to keep track of 
walls, one array for the walls found looking up the board, 
and one array looking across. 


15 


A total of 18 lines need to be defined, 9 looking up at the 
board, and 9 looking across. For each line, we put a 0 down 
if there is no wall blocking our path, and a 1 if there is a 
wall there. There are always walls on the outside perimeter, 
and these do not need ot be defined. 


This information is stored in the DATA statements 9100 ~ 
9108 and 9200 - 9208. 


For example, looking up the board from the bottom left 
corner, we see a wall, If we were able to break through that 
wall, there would be another one, and the another. Finally we 
would see a corridor stretching four squares before the last 
wall. This is the information contained in line 9100. 


The exit is defined by line 156. It says that if you are in 
the 9th row, and facing backwards, and less than 5 from the 
end you will see the EXIT sign. The requirement of 5 from the 
end is because there is a wall in the current maze blocking 
the view if you are say 6 from the end. 


You can easily adapt the program to show your own maze, but 
remember to change the conditions for EXIT. 


Dd 
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3-D MAZEMAN 


100 DIM v(10, 10) = DIM h(10, 10) 
110 GO SUB 9000 


120 LET x = 1 * LET y = 1 + LET dx = 1 = 
LET dy = 0 

125 LET ti = PEEK 23672+256% PEEK 23673+4096% 
PEEK 23674 

130 LET L = 9 = LET Lx = x#(dx = -1) + 


LET Ly = y#(dy = -1) 

132 LET L = L-1 + LET Lx = Lxtdx = LET Ly = Ly+dy 
134 IF dx <> 0 AND v(Lx, Ly) = O THEN GO TO 132 
136 IF dy <> 0 AND h(Lx, Ly) = © THEN GO TO 132 
140 CLS ? GO SUB 6000+L 

145 LET Lx = Lx-(dx = -1) = LET Ly = Ly-(dy = -1) 
150 FOR i =L TO 8 

155 LET Lx = Lx-dx = LET Ly = Ly-dy = GO SUB 1000 


= NEXT i 

156 IF dx = —1 AND y = 9 AND x < 5S THEN PRINT 
AT 10, 145 " EXT SHI 2EXIT 
Gel Shs 0 

158 LET at = INKEY$ = IF a@ = "" THEN GO TO 158 


160 IF a# <> "," THEN GO TO 190 
170 IF (dx = 1 AND vOr+l, y) 
(dx = -1 AND v(x, y) 


(dy = 1 AND W(x, y+1) 
-1 AND h(x, y) = 0) THEN 
= x¢dx = LET y = ytdy 
190 IF AND y = 9 THEN GO TO 9990 
200 IF “r" THEN LET dx = -dx = LET dy = —dy 
= GO TO 130 
210 IF a# = "o" THEN GO TO 300 
215 IF " THEN GO TO 130 


220 IF 1 THEN LET dy = -dx = LET dx = 0 
= GO TO 130 

230 LET dx = dy = LET dy = 0 = GO TO 150 

300 IF ABS dx = 1 THEN LET dy = dx = LET dx = 0 
= GO TO 130 

310 ,LET dx = -dy = LET dy = 0 + GO TO 130 

1000 IF dx <> 1 THEN GO TO 1100 

1010 IF hi(Lx, Ly+1) = 0 THEN GO SUB 7500+: 
2 GO TO 1050 

1020 GO SUB 7000+1 

1050 IF hitx, Ly) = 0 THEN GO TO 8500+i 

1060 GO TO B000+i 

1100 IF dx <> -1 THEN GO TO 1200 

1110 IF h(Lx, Ly) = © THEN GO SUB 7500+i = GO TO 1150 

1120 GO SUB 7000+i 

1150 IF h(Lx, Ly#1) = © THEN GO TO 8500+i 

1160 GO TO B000+i 

1200 IF dy <> -1 THEN GO TO 1300 

1210 IF v(Lx+1, Ly) = 0 THEN GO SUB 7500+i 
= GO TO 1250 

1220 GO SUB 7000+i 

1250 IF viLx, Ly) = 9 THEN GO TO S5v0+i 


1260 GO TO B000+i 
1300 IF viLx, Ly) = © THEN GO SUB 7500+i 
= GO TO 1550 
GO SUB 700041 
IF v(Lx+1, Ly) = 0 THEN GO TO B500+i 
GO TO B000+i 
PLOT 110, 76 = DRAW 0, 24 = DRAW 36, 0 
= DRAW 0, -24 = DRAW -36, O = RETURN 
6001 PLOT 108, 75 = DRAW O, 26 = DRAW 40, 0 
= DRAW 0, —26 = DRAW —40, 0 = RETURN 
4002 PLOT 104, 74 = DRAW O, 28 = DRAW 44, 0 
= DRAW O, -28 = DRAW -44, 0 = RETURN 
4003 PLOT 102, 71 + DRAW 0, 34 + DRAW 52, 0 
= DRAW O, —34 = DRAW -S2, 0 = RETURN 
4004 PLOT 94, 65 = DRAW'O, 46 = DRAW 68, 0 
: = DRAW -68, 0 = RETURN 
4005 PLOT 82, 57 0, 62 = DRAW 92, 0 
> DRAW O, DRAW -92, © = RETURN 
6006 PLOT 64, 45 0, 86 = DRAW 128, 0 
= DRAW 0, DRAW -128, 0 = RETURN 
6007 PLOT 40, 29 O, 118 = DRAW 176, 0 
2 DRAW -176, 0 = RETURN 
6008 PLOT 162 = DRAW 240, 0 
+ 240, 0 = RETURN 
7000 PLOT 108, 75 = DRAW 2, 1 = DRAW 0, 24 
= DRAW -2, 1 = RETURN 
7001 PLOT 106, 74 = DRAW 2, 1 = DRAW 0, 26 
= DRAW -2, 1 = RETURN 
7002 PLOT 102, 71 = DRAW 4, 3 + DRAW 0, 28 
= DRAW -4, 3 + RETURN 
700% PLOT 94, 65 = DRAW B, 4 = DRAW 0, 34 
+ DRAW -8, 6 = RETURN 
7004 PLOT 82, 57 = DRAW 12, 8 = DRAW 0, 46 
= DRAW -12, 8 = RETURN 
7005 PLOT 64, 45 = DRAW 18, 12 + DRAW 0, 62 
= DRAW -18, 12 = RETURN 
7006 PLOT 40, 29 = DRAW 24, 14 = DRAW 0, 86 
= DRAW ~24, 16 2 RETURN 
7007 PLOT 8, 7 + DRAW 32, 22 + DRAW O, 118 
= DRAW -32, 22 = RETURN 
7008 PLOT 0, 1 = DRAW 8, 6 = DRAW O, 142 
= DRAW -8, 6 = RETURN 
7500 PLOT 108, 76 + DRAW 2, © = DRAW O, 24 
= DRAW —2, 0 = RETURN 
7501 PLOT 106, 75 + DRAW 2, © = DRAW 0, 26 
> DRAW —2, 0 > RETURN 
7502 PLOT 102, 74 = DRAW 4, 0 = DRAW O, 28 
= DRAW —4, © = RETURN 
7503 PLOT 94, 71 = DRAW 8, O = DRAW O, 34 
+ DRAW -B, O = RETURN 
7504 PLOT 82, 45 = DRAW 12, 0 = DRAW O, 46 
= DRAW -12, 0 = RETURN 
7505 PLOT 44, 57 = DRAW 18, 0 + DRAW O, &2 
= DRAW -18, 0 = RETURN 
7506 PLOT 40, 45 = DRAW 24, 0 = DRAW 0, 86 
= DRAW -24, © = RETURN 
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7507 
7508 
B000 
goal 
B002 
8003 
8004 
g005 
B006 


8007 


g507 
SOB 


3000 


9010 


9020 
9100 
9101 

9102 
9103 
9104 
S105 
9106 
9107 
9108 


PLOT 8, 29 
= DRAW 
oO, 7 
DRAW 
148, 
DRAW 
150, 
DRAW 
154, 
DRAW 
162, 
DRAW 
174, 
DRAW 
192, 
DRAW 
216, 
DRAW 
248, 
DRAW 
255, 
DRAW 
148, 
DRAW 
150, 
DRAW 
154, 
DRAW 
162, 
DRAW 
174, 
DRAW 
192, 
DRAW 
216, 
DRAW 
248, 
DRAW 
255, 
DRAW 
FOR i= 1 
LET hea 
LET HG 
FOR i = 1 
LET vil 
LET vj 
RETURN 
DATA 1, 
DATA ©, 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
(pLor 


+ DRAW 32, 0 = DRAW O, 118 
32, 0 = RETURN 
DRAW 8, © = DRAW O, 162 
-8, 0 = RETURN 
7S + DRAW —2, 1 + DRAW 0, 24 
2, 1 = RETURN 
74 = DRAW -2, 1 = DRAW 0, 26 
2, 1 = RETURN 
71 = DRAW -4, 3 = DRAW O, 28 
4, 3 = RETURN 
65 = DRAW -8, & = DRAW O, 34 
8, 6 = RETURN 
57 = DRAW -12, 8 = DRAW 0, 46 
12, 8 = RETURN 
45 = DRAW -18, 12 = DRAW O, 62 
18, 12 = RETURN 
29 = DRAW -24, 16 = DRAW O, B86 
24, 16 = RETURN 
7 = DRAW -32, 22 = DRAW O, 118 
32, 22 = RETURN 
1 = DRAW -8, & = DRAW O, 162 
8, 6 = RETURN 
DRAW -2, © = DRAW O, 24 
+ RETURN 
DRAW -2, © = DRAW O, 26 
= RETURN 
DRAW -4, 0 = DRAW 0, 28 
= RETURN 
DRAW -8, 0 = DRAW O, 34 
+ RETURN 
DRAW —i2, 0 + DRAW O, 46 
12, © = RETURN 
57 = DRAW -18, 0 = DRAW O, 62 
18, RETURN 
45 = DRAW —24, 0 = DRAW 0, 86 
24, 0 = RETURN 
29 : DRAW -32, 0 = DRAW O, 118 
32, 0 = RETURN 
7 + DRAW -7, 0 + DRAW 0, 162 
7, 0 = RETURN 
TO 9 = LET hti, 1) = 1 = 
> 10) = 1 2 FOR j = 2709 = READ a 
+ 3) = a * NEXT 3 = NEXT i 
To"? = LET v(t, i) = 1 = 
0, 1) = 14 FOR j} = 2709 > READ a 
> i) = a = NEXT 5 = NEXT A 
1, 9, 0, 0, 0, 1 
1, Q O, 1, 0, 1 
0; 0; 0, 0, 15 1 
1, 1, 0, 0, 1, 9 
Te Og Gutta rita O 
0, O 0, 0, Oo, 1 
1, 0, 1, 0, O, 1 
1, 0, 0, 1, 1, 0 
0, 0, 0, 0, 0, 0 


19 


9200 0; 05 0, 0, © 
9201 1, 0, 4, 0, 0 
9202 03, 0, 04, 0, 4 
9203 0;, 1, 0; 0, 0 
9204 Ty (Wig, Der ely, 
9205 dg da) Bo Oy 2 
9206 9, 0, 0 1, 9 
9207 On) 1s, 13. 05, 6 
9208 is, 04 03) Oy, 2 
9990 23672+256* PEEK 25673+4096% 
9991 


9992 PRINT AT O, 43 “WELL.DONE!! .You.got .out" 
9993 PRINT AT 1, 43 “in4"3 t/S03 " seconds" 
9994 STOP 
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Geometry Test 


Copyright (c) by Beam Software 


The particular test questions included in this program 
happen to be those of geometry, but the program design is 
more general than that. 


This program can be used in any situation where a multiple 
question/answer series is desired. 


One very interesting facet of the Spectrum in a 
mathematical test is that either a number answer or a formula 
answer can be given. In other words to the question "What is 
the area of a circle radius 2?", either the answer "4 * PI" 
or the answer " 12.75 " would be acceptable. (The latter 
answer although not exactly correct would be accepted, as 
this program accepts as correct replies within .5 of the 
correct answer). 


Program structure: 


A short control loop from lines 100 ~ 260 chooses the 
question, compares the answer given with that it expects and 
prints the appropriate message. 


Each question is contained within a subroutine that not 
only prints the question but specifies the answer it will 
accept. 


Obviously the number and range of questions is limited only 
by your imagination. 
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GEOMETRY TEST 


109 
110 
120 
130 
200 
210 
220 
230 
240 
250 
260 
1000 


1010 
1020 
2000 


2010 
2020 
3000 


3010 
3020 
4000 


4010 
4020 


cLs 

LET q = 1+ INT (4% RND ) 
LET m = 2+ INT (20% RND ) 
GO SUB q#1000 


INPUT r = PRINT r 

IF ABS (r—a) > .5 THEN GO TO 240 

PRINT "YES, .the.answer.is. 

GO TO 250 

PRINT "SORRY, .thesanswer.was."j a 

INPUT “Press. < ENTER > awhensready"3 y$ 

RUN 

PRINT “What .is.the.circumference .of 1a 
aacirclewith.radius."3 m 

LET a = 2% PI tm 

RETURN 

PRINT “What .is.the.area.of .a.circle 
aasaWithsradius."3 m 

LET a = PI #mtm 

RETURN 

PRINT “What .is.the.surface.areasof.a 
aa5phere.withsradius."3 

LET a = (4/3)# PI mam 

RETURN 

PRINT “What .is.the.volume.of .a.sphere 
aaWithsradius."5 mM 

LET a = PI &mtmtm/S 

RETURN 
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Copyright (c) by Beam Software 


This program uses a multiple choice format to test your 
knowledge of English history. 


The computer chooses a year from 1066 to 1461, and asks 
you who was reigning in that particular year. You will be 
given a choice of three names. If the year given is one 
where there was a changeover, the correct answer is the 
monarch reigning at the beginning of that year. Type in 
the answer — only the computer knows for sure if you're 
right or not. 


At the end of 25 questions, you will be given your result 
as a percentage. Since the probability of getting the 
right answer by just guessing randomly is 1 in 3, you 
would need to work pretty hard to get less than 30%! 


Program structure: 


The structure of this program is pretty simple, but what 
makes it interesting is the way in which the information 
about the monarchs is stored in the program. 


As there is only one right answer for any given year 
(because of the way we have framed the question), this 
program uses the special ability of Spectrum subroutine 
calls to be specified by a variable and for subroutine 
calls to fall through to the next line number that 
actually exists. 


Look at the program listing - you will see that, for 
example there are no line numbers between 1088 and 1100, 
If you entered the instruction GOSUB 1090, the computer 
would go to line 1090, find it wasn't there, try 1091, 
and sg on, until it finally reached line 1100. In other 
words, any number from 1089 to 1100 will come back with 
the result 

a$ = William 2 


This is a pretty good start, as William 2 reigned from 
1987 to 1100, and as for the purposes of this test, any 
year from 1088 to 1100 would be accepted as correct. 


Let's look at what happens if we were to enter GOSUB 
1088: 

the program would come back with no particular 
information about a$ as all it would encounter would be 
the RETURN instruction. 


We can take care of this as, for example, this program 


does in line 530, by saying that if we get no answer, go 
to the subroutine on the next highest line! ie. if 1088 
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gives you no answer, try 1089, which will return William 
2, 


This means that all number within the range of this test 
will return the correct answer. 


The same program structure can be used for any other test 
where a range of non-overlapping values is correct in 
different situations. 


Kings and Queens of England Part 1 


1066 - 1087 William 1 Norman 
1087 - 1100 William 2 

1100 - 1135 Henry 1 

1135 - 1154 Stephen 

1154 - 1189 Henry 2 Plantaganet 
1189 - 1199 Richard 1 

1199 - 1216 John 

1216 - 1272 Henry 3 

1272 - 1307 Edward 1 

1307 - 1327 Edward 2 

1327 - 1377 Edward 3 

1377 - 1399 Richard 2 

1399 - 1413 Henry & Lancaster 
1413 - 1422 Henry 5 

1422 - 1461 Henry 6 
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Graphics 
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Spectrum Clock 


Spectrum Invaders 


Score 190 Hien score 1490 


Freeway Frog 


KINGS AND QUEENS OF ENGLAND 


100 DIM p(3) 

110 RANDOMIZE 

120 LET s =0 

130 FOR i = 1 TO 25 

140 GO SUB 500 

150 LET c# = at 

160 GO SUB 500 

170 LET b® = a® 

180 IF b% = c& THEN GO TO 160 

190 GO SUB 500 

200 IF a$ = b& OR af = c$ THEN GO TO 190 

210 PRINT i3 “..Who.wasamonarchsin."3 .n3 
"2" 

220 LET p(i) INT (3% RND )+1 

230 LET p(2) = INT (3% RND )+1 

240 IF p(2) = p(1) THEN GO TO 230 

250 LET p(3) = 6-p(1)-p(2) 

260 FOR t = 1 TO 3 

270 PRINT AT S+t, S53 ts “.4"5 

280 IF t = p(1) THEN PRINT a$ 

290 IF t = p(2) THEN PRINT b$ 

300 IF t p(3) THEN PRINT c# 

310 NEXT t 

320 PRINT AT 12, O35 

330 LET x$ = 4 INKEY$ ¢ IF x® < “1" OR x# > " 
THEN GO TO 330 

340 IF VAL x$ = p(1) THEN PRINT "GREAT" = 
LET s = s+i = BEEP .5, 2 + BEEP .2, 5 + 
BEEP .2, 7 + GO TO 370 

350 PRINT “NO,-.it.was."5 at 

360 FOR j = 1 TO 8 = BEEP RND /4, 10% RND —SO = 
NEXT j ¢ BEEP 1, -25 

370 PRINT FLASH 13 AT 20, 03 “Press.any.key.for 


athe next one" 
380 LET x# = INKEYS 
390 IF x$ = "" THEN GO TO 380 
400 CLS 
410 NEXT i 


420 PRINT "YOU.SCORED.“3 4%53 "PERCENT" 
430 STOP 

500 LET n = INT (396% RND )+1066 
510 LET a$ = "1" 

520 GO SUB n 

530 IF a# = "." THEN GO SUB n+1 
540 RETURN 

1087 LET a$ = "William.i" 

1088 RETURN 

1100 LET a% = “William.2" 

1101 RETURN 

1135 LET a$ = “Henry.i" 

1136 RETURN 

1154 LET a# = "Stephen" 

1155 RETURN 
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1189 
1190 
1199 
1200 
1216 
1217 
1272 
1273 
1307 
1308 
1327 
1328 
1377 
1378 
1399 
1400 
1413 
1414 
1422 
1423 
1461 
1462 


LET at 
RETURN 
LET af 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 
LET at 
RETURN 


“Henry .2" 
“Richard .1" 
“Jorn” 
“Henry .3" 
“Edward .1" 


“Edward .2" 


"Edward. 
“Richard .2" 
“Henry .4" 
“Henry .5" 


Henry .6" 
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Blackjack 


Copyright (c) by Beam Software 


This is the traditional casino game at the Club 2X 
Spectrum. Welcome! As a special greeting to all our 
guests, we will give you a voucher for $100 valid only at 
our blackjack tables. 


Step right up. The rules of the house are: 

~ before any cards are dealt you must decide how 
much you are prepared to bet. Note that the 
Club 2X Spectrum does not extend credit. 

- the dealer deals himself one card face up, then 
deals you one card face up. You can then choose 
as many additional cards as you desire. 

~ if you have not gone bust (that is, your total 
has not exceeded 21) then the dealer will deal 
himself additional cards. The dealer always draws 
on 16 or below, always sits on 17 and above. 


If you should win a hand, you win the amount you have 
bet. If you and the dealer have the same total, the 
dealer wins. Five cards under 21 will win for you 
provided the dealer does not have blackjack. Tf you have 
BLACKJACK (a total of 21 in only two cards) then you will 
win twice the amount bet, again provided the dealer does 
not have blackjack himself. 


Step right up ladies and gentlemen. 


Structure of the program: 


The structure of the program is as follows: 


NEW BET INPUT PLAYER'S BET 
IF NO MONEY LEFT, STOP 
DEAL FIRST CARD TO DEALER AND PLAYER 


FOR PLAYER AND DEALER 
IF PLAYER ASK IF CARD WANTED 
IF NOT SWITCH TO DEALER 
DEAL THE GARD AND PRINT IT 
CALCULATE VALUE OF HAND AND PRINT IT 
LF OVER 21 GO TO PAYOUT 
IF DEALER AND OVER 16 GO TO PAYOUT 


PAYOUT IF PLAYER BUST, OR IF DEALER TOTAL 
GREATER THAN OR EQUAL TO PLAYER 
THEN MONEY WON = 0 
TF BLACKJACK THEN MONEY WON DOUBLED 
KITTY = KITTY + MONEY WON 
GO TO NEW BET AGAIN 
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The structure of this program is therefore fairly simple, 
and you should have litle trouble changing the program if 
you wished to change the ‘house rules'. 


Graphics display: 


The subroutine at line 8000 defines a one character 
design for the four card suits. This subroutine obviously 
is only called once at the beginning of the program. 


Each card is printed by the subroutine at line 8500. The 
card outline, which is light blue, is printed first, and 
then the one character suit is printed in the appropriate 
colour (black or red). 


The problem of how to print the cards themselves then 
comes up. As you know there are only 21 graphics 
characters easily accessible for use. We have already 
used up 4 of them for the suits, leaving only 17. 


There are 13 cards possible, but using only a one 
character display would make this only as big as the 
normal printed characters themselves. The solution 
employed in this program is to look up the standard shape 
of each character in the ROM where its shape is stored, 
blow it up to double size (that is two characters wide, 
and two characters high), and store this in the special 
graphics character set, as ABCD. Because there is no 
standard character for '10' a one-character version of 
this is defined in subroutine 8000. 


This method is a little slow, but in the program itself 
this is acceptable as it adds to the mounting tension of 
discovering what card has been dealt. 


As you are no doubt aware each character is displayed on 
the Spectrum screen as a collection of 8 bytes, and the 
definition for the standard character set is stored in 
the ROM starting at location 15616. The starting address 
of each character can be determined from its code by the 
formula 15360 + 8 * code of character (see line 9020) 


The program then has to work to determine how to blow 
this up to twice the size, and stores it in the UDG area. 


Special notes: 


You will notice a strange notation in line 270 
LET a = p(i) = 11 
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In this program the variable ‘a! is being used to keep 
track of the number of aces in the hand. What this line 
says is 

LET a = 0 

IF p(i) = 11 THEN LET a = 
where p(i) is the card total for player i. 


The expression could have been written as just above, or 
we could have written as 
LET a = ( p(i) = 11 ) 


because we know that on the ZX Spectrum an expression 
will be set equal to 0 if it is false and equal to 1 i 
it is true. As it turns out we can leave out the bracke 
without any possibility of error, and so we have the 
strange but very compact expression found in line 270. 


The other expression that you might find odd is in line 
530, where the value of p(i) is calculated, We have just 
chosen a card number from 2 to 14, represented by 
variable 'c', and we want to add the value of c if it 
less than or equal to 10 (ie a number card), add 10 if ¢ 
is a suit card (12, 13 or 14) and add 1 or 11 if it is an 
ace ( c=11 ). 


We could do it as 
IF © =( 10 THEN ... 
IF c ) 11 THEN 
IF c = 11 THEN 
but that one line does it almost all. What it says is add 
the value of the card if the value is less than 12, and 
add 10 if the value is over 11. Simple, isn't it! 


Lines 540 ~ 560 take care of the ace being counted as 11 
or 1, greatly simplifying the program 


Totat= 13 
SRECTRUM CARDS 


Totat= 10 
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BLACKJACK 


100 BORDER 7 = PAPER 7 = INK 0 + OVER O = CLS 

110 LET b& = "N23456789TAJOK" 

120 LET a = 0 = LET m= 100 

139 GO SUB 8000 

140 DIM p(a) 

150 IF m = © THEN PRINT AT 10, 13 "Kitty.stands 
aat.$0"3 AT 19, 1% “Sory, syouracredit 
ahas.run.out. ..Come.again.when .you 
ahave.more..smoney." = STOP 

160 PRINT AT 10, 13 "“Kittysstandssat.$"j m = 
PRINT "How.much .do.you want .to.bet? 

170 INPUT b 

180 CLS 

190 IF b > m THEN GO TO 140 

200 LET m = m-b 

210 PRINT INK 03 AT O, 05 “YOUR.CARDS"3 AT 11, 03 
"SPECTRUM CARDS" 

220 PRINT AT 9, 13 “Total = "3 AT 20, 13 “Total = " 

230 FOR i = 2 TO 1 STEP — 

240 GO SUB 500 


250 NEXT 1 


pq) = 11 

280 IF i = 1 THEN INPUT FLASH 15 PAPER 23 INK 73 
“Do.you .want sanother .card?."5 at 
LET af = age." = IF a#(1) = "n" THEN 
6O TO 340 

290 GO SUR 500 

300 IF p(i) > 21 THEN LET i = 2 = GO TO 340 

310 IF p(it+2) = 5 THEN GO TO 340 

320 IF i = 2 AND p(i) > 16 THEN GO TO 340 

330 GO TO 280 

340 NEXT i 


350 IF pi) 21 AND p(3) = 5 AND (p(2) <> 21 OR 
p(4) <> 2) THEN GO TO 380 
340 IF p(1) = 21 AND p(3) = 2 AND (p(2 <> 21 OR 
» pa) <> 2)) THEN LET b = b#1.5 = PRINT 
FLASH 13 AT 5, 18; "BLACKJACK" = GO TO 380 


370 IF (p(2) <= 21 AND p(2) 
THEN LET b = 0 

380 LET m = m+2¥b 

390 60 TO 15 

LET pti+2) = p(itzrei 

LET c = INT (13% RND )+2 

IF c = 11 THEN LET a = atl 

LET pti) = plid+ee(c < 12)4108(c > 11) 

IF p(i) < 22 OR a = 0 THEN GO TO 570 

LET a = a-1 

LET p({id = p(i)-10 

60 SUB 8500 

GO SUB 9000 

PRINT INK 03 AT 11%i-2, 95 pCi) 

RETURN 


p(1)) OR p(t) > 21 
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8000 
g010 
g020 
BOx0 
8040 
B050 
8060 


8070 
8500 
asi0 


8520 


530 
7000 
9010 
9020 


9030 
9040 
9050 
97060 
9070 


9080 
9090 


F100 
91190 


DATA 0, 78, 209, 81, 81, 81, 78, 0 

DATA 102, 255, 255, 255, 126, 60, 24, 24 

DATA 24, 60, 126, 255, 255, 126, 60, 24 

DATA 24, 60, 126, 255, 255, 219, 24, 60 

DATA 60, 60, 219, 251, 231, 219, 24, 24 

RESTORE 8000 

FOR k = USR TO USR “e"4+39 + READ x ¢ 
POKE k. x = NEXT k 

RETURN 

LET p = 1181-7 = LET q = 6%p(i+2)-5 

INK 5 = PRINT AT p 
“ Ge S GRE 3 GRE 3 GRA S 
GBA SHI 5" + FOR k= 1 705 = 
PRINT AT p-S+k, 
ae. GBS SHl 
PRINT AT p+3, 3 
GR6 = Gha 3 GRA 3 GA 2” 


INK © 


LET suit = 1+ INT (4% RND ) = INK 2#(suit < 3) 


= PRINT AT p-2, q+3} CHR (148+suit) 
RETURN 
LET x = USR "a" 
FOR k = 0 TO Si = POKE x+k, 
LET s = 8 CODE b#(c)+15360 
THEN LET 5 = USR "e" 
FOR j = 0 TO 7 = LET v = PEEK (st+j) = LET 
2 LET d = 256 


NEXT k 
IF bS(c) = 


FOR k = 8 TO 1 STEP -1 = LET d = d/2 = 
THEN LET c = c+3#d’d = LET v = v-d 

NEXT k 

LET h = INT (c/256) = LET L = c-2568h 

POKE x, h = POKE x+1, h = POKE x+8, L = 
POKE «+9. L 

LET x = x+2488(j3 = 3) 

PRINT AT p, q+23 " GRA A GRA AT p+i, 


" GBB C Ge D" 
NEXT 3 
RETURN 


W 


IF v >= 


d 


Copyright (c) by Beam Software 


This program simulates the fruit machines to be found in 
pubs and gambling parlours. 


The main benefit of gambling here of course is that if you 
should lose the 10 pounds you came in with, it doesn't matter 
too much. Of course the main drawback is similar - you can't 
take your winnings with you. 


This program of FRUIT MACHINE will extend the concepts you 
may have about the applications of the user defined graphics. 
In this program we will define 60 user defined characters for 
the 16K version, and an additional 40 for those with more 
memory. In fact on a 48K machine many more graphic characters 
could be defined with no additional programming required. 


So step right up, ladies and gentlemen, and try your luck! 
At the very least, you'll be amazed at the graphics of this 
program. 


You obviously win if you get all three windows showing the 
same picture, with different amount depending on the picture. 
If you get two adjacent windows with the same picture, you 
also win, except if it's two lemons. 


Programming considerations: 


The design of this program is for a fruit machine with three 
cylinders, each rotating independently. Each "window" is 
comprised of 20 characters (4 across, 5 deep), each possibly 
showing the picture of a different symbol — lemon, bell, 
cherry, etc. 


As oply 21 graphic characters are allowed, this immediately 
places restrictions on what we can do. Fortunately for us, we 
do not need to have all 60 (or 100 or whatever) characters 
specially defined at the same time. 


Once a graphic character has been written to the screen, the 
memory locations corresponding to that position on the screen 
will keep that shape, and not lose it until you overwrite it. 
What you do with the graphic character you defined is not 
important. 


As an example, let's assume we define A as BIN 01010101, BIN 
10101010, BIN 01010101, etc., and that we said 

PRINT AT 0,0; "A" 
then the eight memory locations corresponding to (0,0) would 
remembered this as BIN O1010101, BIN 10101010, etc., and not 
as "A", We can change the definition of A and it will have no 
effect on the screen. This is not the case with all computers. 
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This program therefore draws shapes, then redefines the 
characters, draws again, and so on. 


Program structure: 


100 — 200 Define variables 


950 - 1810 Draw fruit machine 
and check that player is solvent 


2000 - 2230 Main loop 
For each window 
For each of 3 to 6 displays 
Choose a picture 
For each of five lines 
Redefine character set 
Print up each block 
Next line 
Next display 
Redefine character set 
Next window 


2500 - 2560 Calculate winnings if any 
The program gets all its information from DATA statements, 


including which ink and paper colour to use in drawing the 
next block. 


Fitting the program in 16K: 


The program as it stands will NOT fit into 16K. DATA 
statements are not a particularly efficient way of storing 
information (see notes in METEOR STORM), and no steps have 
been taken to minimise memory usage. 


The version included here has 4 different pictures possible: 
Cherry, Lemon, Bell and Pineapple. As well, at the beginning 
of each pull of the lever, all windows are reset to show a 
large question mark. 


The program can be modified to fit into 16K very easily with 
the following changes: 
Only 3 pictures are possible: Cherry, Lemon and 
Bell, 
At the beginning of each pull of the lever, each 
window will show a cherry. 


To effect these alterations, the following is required 
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all of th 


lines 8000 - 8053 (defining the 
lines 8400 - 8453 (def 
lines 9010 and 9400 (defining 
1 mark and pineapple) 


line 2040 to read 
LET picture = 1 + INT ( 3 


5 the choice to 3 pictures 
lines 5510, 5520, 5530 to read 
LET pattern = 1 
LET picture = 1 
LET oldpict = 1 


ts up the cherries instead of 


of the space saving technique 
the book, it should be possib 


rogram within 16K. (Try it as 


question mark) 


ning the pineapple) 


ink and paper 


RND ) 


the question 


s described 
le for y 
a programming 


u to 


t 
play 


for 


fit 


FRUIT MACHINE 


100 LET fillhires = 5300 
110 LET drawblack = 5100 
120 LET first = 5 
130 LET resethires = 5500 
140 LET blankwindow = 5700 
i50 LET money = 10 
160 DIM r(3) 
170 DIM s(4) 
180 RESTORE 7000 
190 FOR k = 1 TO 4 = READ s(k) = NEXT k 
200 INK 7 = PAPER 5 + BORDER 5 = CLS 
950 REM draw. fruit machine 
980 LET c# = 
" GRE SHI & GRE SHI 8 GRE SHI 8 GRE SHI 
GRS SHI 8 GRE SHI 8 GRE SHI & GRE SHI 8 
GR SHI 6 GRS SHI 8 GES SHI 8 GRA SHI 8 
GBS SHI 8 GRS SHI & GRE SHI 8 GRO SHI 6" 
1000 PRINT AT 1, 53 “ GRE 4"; c#; “ GRA SHI 7" 
1010 PRINT AT 2, 43 “ GRE 4 GRE SHI 8"; 
c$; " GRE SHI 8 GRE SHI 7" 
1020 PRINT AT 3, 3; " GRE 4 GRE SHI 8 GRA SHI 8"; 
cts 
“ GR SHI 8 GRE SHI 6 GRS SHI 7.. GRH 4" 
1030 PRINT AT 4, 33 
“ GBB SHJ 8 GRS SHI 8 GRA SHI 8"; 
GBH Sil 8 GRE SHI 8 GRA SHI 8 
1040 
8 GRE SHI 8"; 
SHJ 8 GBS SHI 8 
1050 GRS SHI 8 
-.-. GRO SHI 8 GRS SHI 5 GES SHI 8 
+e-. GBH SHI] 8 GRE SHI 8S GRA SHI 8 
aoe. GRO SHI 8 GRA SHI B 
ae ant GBS SHI 5" 
1060,PRINT AT 7, 33 “ GBS SHI 8 GBS SHI 8 
aes. GRO SHI 8 GHB SHI 8 GRE SHI 8 
as... GBB SHI 8 GRA SHI 8 GBS SHI 8 
aos- GRO SHI 8 GRA SHI 8 
a. GBA SHI 8 GHA SHI 5" 
1070 PRINT AT 8, GR6 SHI § GRA SHI 8 
a2... GHB SHI 8S GES SHI 8 GRE SHI 8 
aoe. GBH SHI 8 GRA SHI 8 GRE SHI 8 
as... GRO SHi 8 GRA SHI 8 
a. GBS 5" 
1080 PRINT AT 9, 33 " GRA SHI & GRE SHI 8 
SHl 8 GRS SHI & 
SHI 8 GRE SHI 8 
ah 8 
1090 SHI 8 GRS SHI 8 
Shi 8 GR& SHI 8 


aaee GRO GRe 
seca GRO GRS 
a. GRE 5S" 
1100 PRINT AT 11, 
c$; " GRS SHi 6 GRE SHI 8 GRA SHI 8 
GRE SHI ® GRA SHI 3 GRAB SHI 3 GRA SHI 2" 
1110 PRINT AT 12, 33 “ GRE SHI & GRA SHI 8"; c$; 
" GRS6 SHI 8 GRE SHI 8 GRE SHI 8 GRA SHI 8” 
1120 PRINT AT 13, 33 
“ GRS Sil 8 GRA SHI 8 GRE SHI 8 GRO SHI 8 
GBS SH] § GAS SHI 6 GRE SHI 8 EXIT SHI oO 
G86 SH] 8 GRS SHI S GRE SHI 8 GRE SHI 8 
GHB SHI 8 GES SHI & GRE SHI 8 GRA SHI 8 
Gxl SHJ 7 GRE SHI 8 GRA SHI 8 GRA SHI 8 
GBS SHI 8 GRS SHI S GRE SH] 8 GRA SHI 8” 
1130 PRINT AT 14, 33 
“ GBS Si 8 GRS SHI S GES SHI 8 GRA SHI 8 
GBS SHI 8 GHS SHI 6 GRE SHI 8 EXIT SHI 0 
GRA SHI § GRA SHI 8 GRE SHI 8 GRA SHI @ 
GBS Sui 8 GRE SHI 8 GRE SHI 8 GRE SHI 8 
Gxt Sh] 7 GES SHI 68 GRE SHI 8 GRA SHI 8 
GBS Sil 6 GRA SHI 8 GRE SHI 8 GRA SHI 8” 


1140 PRINT AT 


5 


E 
; 
E 
F 
E 
E 
E 
E 


GBS SHI 8 GRE SHI 8 GHT SHI O GRE SHI 8 
GAS SHi 8 GRE SHI 8 GRE SHI 8 GRE SHI 8 
GBS SHI S GRE SH] 8 GRA SHI & GRE SHI 8 
GB& SHI 8 XI SHI 7 GRA SHI 8 GRH SHI 
GR6 SHI 8 GRE SHI 8 GRA SHI 8 GRA SHI 8 
Gast SHI 0” 

1150 PRINT AT 16, 33 
“ GRE SHI 8 GES SHI 8 GRE SHI 8 GRE SHI 8 
GBS SHI 8 GRE SH] 8 GRA SHI # GRA SHI 8 
GRA SHI & GRE SHJ 8 GES SHI 8 GRA SHI 8 
GBS Shi S GR& SHI & GRA SHI 8 GRE SHI 8 
GB6 SHI 8 GRS SHI 8 GRE SHI 8 GRA SHI 8 
GBS SHI 8 GRE SHI 8B" 

1160 PRINT AT 17, 33 “ GRA SHI 8 GRA SHI 8"; c#3 
" GRE SHI 8 GRE SHI 8 GRE SHI 8 GRE SHI 8” 


1500 GO SUB blankwindow 
1750 IF money > © THEN GO TO 1780 


1740 PRINT INK 03 AT 20, 03 “Sorry.—.allsyour 
amaney .is.gone" 

1770 STOP 

1780 PRINT INK 03 AT 20, 03 "“Youshave.*"3 moneys 


“,left"; AT 21, 03 “Press 
~ < ENTER > .to.play” 

1790 INPUT k& 

1800 PRINT AT 20, O03 " 


1810 LET money = money-.5 
1820 PRINT INK 03 PAPER 03 AT 

AT 14, 133 “seni AT 1 
1830 GO SUB blankwindow 


2000 REM display .all .windows 

2010 FOR w= 1 703 

2020 FOR d = 1 TO 3+3# RND 

2030 LET oldpict = picture 

2040 LET picture = 1+ INT (4* RND ) 

2050 IF picture = oldpict THEN GO TO 2040 

2060 FOR L = 5 TO 1 STEP -1 

2070 GO SUB fillhires 

2080 LET p = 0 

2090 LET pattern = picture 

2100 FOR b = L TOS 

2110 LET p = pti 

2120 GO SUB drawblock 

2130 NEXT b 

2140 LET pattern = oldpict 

2150 FOR b = 1 TO L-1 

2160 LET p = pti 

2170 GO SUB drawblock 

2180 NEXT b 

2190 NEXT L 

2200 NEXT d 

2210 LET r(w) = picture 

2220 GO SUB resethires 

2230 NEXT w 

2500 IF r(1) <> r(2) AND (2) <> r(3) THEN GO TO 1750 

2510 IF r(2) = 2 THEN GO TO 1750 

2520 LET win = 1 

2530 IF r(1) = 7 (2) AND r(2) = F(3) THEN 
LET win = s(r(1)) 

2540 PRINT PAPER 03 AT 13. 
"WON"5 AT 15, 135 

2550 LET money = money+win 

2560 GO TO 1750 

5100 REM get .correct .colours.for sblock 

S110 RESTORE 9000+100%pattern 

5120 FOR c = 1 TO b-1 

51350 READ ink, paper 

5140 NEXT c 

S150 READ ink, paper 

5200" REM print .onesblock 

5210 PRINT AT first+p, 74*W-23 

5220 FOR c = 1 TO 4 

5230 PRINT INK inks PAPER papers CHR® (144+48b-S+c) 5 

5240 NEXT c 

5250 RETURN 

S300 REM redefine hi .resolution characters 

S310 RESTORE 8000+100%picture+10%L 

5320 FOR h = 4. USR “a"+324L-32 TO USR “a"+32aL-1 

5330 READ byte : POKE h, byte 

5340 NEXT h 

S350 RETURN 

5500 REM define.hires.as."?" 

5510 LET pattern = 0 

5520 LET picture 

5530 LET oldpict 

5540 FOR L = 5 TO 1 STEP -1 


5 "YOU"3 AT 14, 135 
3 win 


5550 GO SUB fillhires = IF handle = 0 THEN 
Go Ta 5590 

5560 IF L = 5 THEN PRINT AT 3, 273 “.."3 
AT 4, 273 ".."3 AT 5, 275 " GRB 4."5 
AT 8, 27; " GRE SHI 8 GRE SHI 5"; 
AT 9, 273; " GRE SHI 8 GRE SHI 5S" 

5570 IF L = 3 THEN PRINT AT 5S, 273 “2a"3 
AT 6, 273 “sa"3 AT 10, 275 
“ GRE SHI 8 GRE SHI S" 

5580 IF L = 1 THEN PRINT AT 7, 273 " FT 
OTB, 2750 aM LAT es 27 Sota 
AT 11, 27; “ GBS SHI 8 GRE SHI 5S" 

5590 NEXT L 

5600 RETURN 

5700 REM fill .all .windows .with.? 

5710 LET handle = 1 + GO SUB resethires = 


LET handle = 0 
5720 FOR w = 1 TO S 
5730 LET d = 1 
5740 FOR b = 1705 


5750 LET p =b 

5760 GO SUB drawblock 

5770 NEXT b 

5780 IF w = 1 THEN PRINT AT 7, 
“GRE SHI 8 GRE SHI 5"5 AT 8, 273 

AT 9, 273 

AT 11, 275 


5790 IF w = 2 THEN PRINT AT 5, 273 “ GRE 4."3 
AT 6, 273 GBS SHI 8 GAS SHI 5S"; 
AT 10, 273 " GRe 5." 

5800 IF w THEN PRINT AT 3, 273 


AT 4, 27; " GRA SHI 8 GRA 
ATS, 27; " GRE SHI 8 GRO 
AT 8, 275 " GRE S."5 AT 9, 
“ GRE 5." 


5810 NEXT w 

5820 RETURN 

7000 DATA 15, 3, 12, 7 

8000 ‘REM Data.for whigh.resolution.pictures.— 
afirst sone.is.questionsmark 

8010 DATA O, 0, O, O, O, O, 0, Oo 

8011 DATA 0, 0, 0, 3, 15, 60, 112, 112 

8012 DATA O, O, O, 248, 252, 62, 14, 7 

8013 DATA 0, 9, 0, 0, 0, 0, 0, Oo 

8620 DATA 0, 0, 0, 9, 0, 0, 0, 0 

8021 DATA 224, 224, 224, 240, 248, 248, 240, 96 

8022 DATA 3, 3, 3, 3, 3, 7, 6 14 

025 DATA O, 128, 128, 128, 128, 0, 0, 0 

8030 DATA 0, O, 0, 9, 0, 0, O, 0 

8031 DATA 9, 0, 0, O, 1, 1, 3, 3 

OS2 DATA 28, 56, 112, 224, 192, 128, 0, 0 


B033 DATA 0, 0, 9, Oo, 0, O, O 
8040 DATA 0, G, O, O, 9, O, 0, O 
8041 DATA 7s) Sh St Ly) Ops 0) 


8042 DATA 0, O, 128, 192, 192, 128, 0, O 


48 


8045 
8050 
8051 

g052 
8053 
g100 
g110 
aii 

aii2 
8113 
g120 
8121 

g122 
8123 
8130 
e131 

8132 
8133 
8140 
8141 

g142 
8143 
B150 
8151 

g152 
8155 
8200 
8210 
8211 

212 
8213 
8220 
8221 

8222 
8223 
9230 
g231 

8232 
8235 
8240 
8241 

8242 
8243 
8250 
8251 

8252 
az53 
8300 
e310 
agit 

8312 
8313 
8320 
g321 

9322 
8323 


DATA 
DATA 
DATA 
DATA 
DATA 


oy 
9 
15, 
192, 
oO, 


0, 0, 
0, 9, 0, 
15, 15, 
192, 
Oo, 


07.105 
o, 
3, 


192, 
5,05 


REM Cherry 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


°, 


o% 


127, 


9, 
4, 
a, 
9, 
9, 


29, 
224, 


9, 
1, 


255, 
254, 


o, 


Oo, oO 
Oo, 
14, 
0. 
0, 0, 
1, 4s 
HM, 
128, 


0, 0, 
o, Oo, 
30, 
o, 
°, 
2, 
Ss 


o, 


191, 


°, 
60, 126, 
240, 120, 
Oo, 0, 0, 
0, 04 Oy 
255, 255, 
254, 252, 


9, o, 


1, 
255, 


eo, 
1 


o, 
o, 


Qo, 


REM Lemon 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
pata 


REM Bell 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


oy 
o, 


cA 


255, 
254, 


75 


192, 
127, 
254, 
43, 

255, 
255, 
248, 
63, 

255, 
254, 


Oo, 


oO, 
9, 
Os 
1s 
255, 
255, 
126, 

Bi, 
199, 


255, 
254, 
is, Si, 
193, 
255, 255, 
254, 254, 
63, 63, 63, 
255, 255, 
255, 255, 
248, 240, 
63, 63, 63, 
255, 255, 
248, 224, 
0, 0, Oo, 


oO. Oo, 
0, 0, 
0, 35 114, 
0, 192, 
O, 9, O, O, O, 
(Og, (05.204 °0, 10, 
15, 63, 127, 1 
240, 252, 
+ Os O, Oy 


Oo, 
8, 
112, 1 


oO, 


° 


128, 


124, 


127, 
252, 


255, 
40, 


255, 
255, 
254, 

63, 
255, 
255, 
224, 

S41, 
255, 
128, 


8, 


254, 


0, 


Os 
9, 


9, 
o, 


° 
° 


HOONS 


255, 255, 255, 255 
252, 254, 254, 254 
° 
° 
63, 
248, 

0, 0 


Qo, 
°, 

° 
128, 


31, 7, 


224, ° 


0, 0 
o, 1 
127, 
16, 
3, 

254, 


255 
188 
7 
248, 
15, 15, 
196, 246, 
» 63, 63, 63 
255, 255, 
255, 255, 
254, 252, 
63, 31, 31 
255, 
255, 
192, 
° 


240, 224 
31, 63 
254, 254 
255, 
255, 
252, 


255 
255 
252 


255, 
255, 
128, 


255 
255 
° 


Oo, 
o, 0 
12, 
16, 
o 
o 
255, 
254, 
0 


é 
6, 48, 96 
9, 
9, 
27, 255, 
255, 


255 
255, 255 


oe, 


39 


330 DATA O, 1, 1, 1, 1, 1, 1, 1 
8331 DATA 255, 255, 255, 255, 255, 255, 255, 255 
8332 DATA 255, 255, 255, 255, 255, 255, 255, 255 
8333 DATA O, 128, 128, 128, 128, 128, 128, 128 
8340 DATA 1, 3, 3, 3, 3, 7, 14, 56 

8341 DATA 255, 255, 255, 255, 127, 127, 127, 255 
8342 DATA 255, 255, 255, 255, 255, 255, 255, 255 
8343 DATA 128, 192, 192, 192, 192, 224, 240, 252 
8350 DATA 31, 3, 9, 9, 0, 0, 0, 0 

8351 DATA 255, 255, 3, 3, 1, 0, 0, 0 

8352 DATA 255, 255, 128, 128, 0, 0, 0, 0 

8353 DATA 252, 192, 0, 9, 0, 0, 0, 0 

8400 REM pineapple 

8410 DATA 0, 0, O, 1, 1, 9, 13, 7 

8411 DATA 0, 4, 4, 14, 142, 158, 254, 189 

8412 DATA 0, 64, 68, 196, 220, 221, 247, 245 
8413 DATA 0, 0, 16, 112, 224, 192, 128, 184 
8420 DATA 7, 3, 3, 1, 1, 9, 9, 0 

8421 DATA 187, 221, 219, 235, 247, 251, 253, 255 
8422 DATA 245, 250, 253, 251, 247, 239, 223, 223 
8423 DATA 240, 224, 192, 128, 128, 0, 0, oO 

8430 DATA O, 0, 0, 0, 1, 1, 3, 3 

8431 DATA 127, 127, 80, 219, 219, 219, 39, 178 
8432 DATA 254, 254, 46, 111, 227, 29, 93, 125 
8433 DATA ©, 0, O, 0, 128, 128, 128, 192 

8440 DATA 3, 3, 3, 3, 3, 3, 1, 1 

8441 DATA 182, 183, 70, 57, 53, 53, 174, 209 
8442 DATA 200, 215, 27, 187, 145, 183, 119, 191 
DATA 192, 192, 192, 192, 128, 128, 128, 128 
DATA 1, 1, 0, 9, 0, 0, 0, 0 

DATA 219, 255, 197, 237, 237, 127, 31, 0 
DATA 147, 187, 27, 218, 198, 252, 248, Oo 
DATA 9, 9, 0, O, 0, 0, , 0 

REM ink, paper sdata.for seach block 

DATA 0, 5, 0, 5, 0, 5, 9, 5, 0, 
DATA 4, 1, 45 1, 4, 1, 2, 15 25 
DATA 6, 4, 65 4, 6, 45 65 45 bs 
DATA 73.25 7s 2s Ts 2) 7, 2a 7s 
DATA 4, 3, 45 3; 65 3, 6, 3s 6 


UNeeO 
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Line Renumber 


Machine Code Monitor 


Block Line Delete 


Eliminator 


Meteor Storm 


Bubble Sort 


Copyright (c) by Beam Software 


There are all sorts of people interested in computing, 
but in mathematics the word 'sort' has a different 
meaning. There are indeed many different sorts of sorts. 


A sort is a process by which you can create order out of 
chaos, and usually the sorting process is applied to a 
large number of names or an array of numbers. 


The program given here serves as both a demonstration of 
the processes involved in the sorting process, as well as 
being the basis for a compact subroutine you can use in 
your own programs — for example to sort a list of names 
and addresses, or to sort a hand of cards in a bridge 
game. 


The demonstration of these sorts given here is 
graphically very enjoyable as well as being slow enough 
to allow a good understanding of the sorting process. 


The bubble sort: 


The first program given here is a traditional bubble 
sort. What the program does is that it compares two 
numbers adjacent in a list: if the numbers are the wrong 
way round (in other words the larger number comes before 
the smaller number) then it swaps them around. 


Tf you run this program, you will soon realise why it is 
called a bubble sort - the smaller numbers seem to bubble 
to the top and the larger ones bubble to the bottom. 


The program will keep on swapping adjacent numbers, over 
and over again, each time getting the list of numbers a 
little bit more sorted than before until finally there is 
no more sorting to be done. 


The program is very cute in its execution, and you can 
see how hard the dumper truck has to work to sort the 
mass out. 

You will soon realise that there must be a better way to 
sort things. 


Modified bubble sort 


The second program listing is a modified bubble sort. Now 
the program is no longer concerned to swap merely 
adjacent numbers - it is prepared to roam much further 
afield. 
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This cuts the number of swaps to be done to about half 
those on a traditional bubble sort. 


You can either enter the second program as listed, or if 
you have already entered program 1, all that is needed is 
to change lines 320, 330, 340, 500 and 510. 


Sort subroutine: 


Aside from its demonstration purposes, you can use sorts 
in your own programs. Program 3 gives the listing of the 
modified bubble sort in subroutine form (lines B000 -— 
8030) which you can use in your own programs. 


This subroutine assumes the numbers to be sorted are in 
an array p(n), and that n is the number of elements to be 
sorted. 


Program 3 can be obtained from Program 2 by deleting 
lines 110 - 130 and lines 280 onwards, and then inserting 
new lines 280 - 300, 1000 - 1040, and 8000 - 8030. 


As you can see from this program, 15 numbers can be 


sorted in about 3 seconds, including the time required to 
print the 15 numbers twice. 


3889362 
1362 


2.371993.40% 
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SORT VERSION 1 


100 BORDER 7 + PAPER 7 = INK © + OVER © = CLS 

110 RESTORE 600 

120 FOR i = USR “a" TO USR "d"-1 

130 READ x = POKE i, x = NEXT i 

140 LET n = 15 

150 DIM p(n) 

160 PRINT "Do.you.want .to.choose.your .own 
aanumbers.(ysor an)?" 

170 LET b® = INKEY$ = IF b$ = "" THEN GO TO 170 

180 IF b% = “n" OR b$ = “N" THEN GO TO 240 

190 PRINT “Enter .15.numbers.to.be.sorted” 

200 FOR y = 1 TON 

210 INPUT p(y) = PRINT p(y? 

220 NEXT y 

230 GO TO 270 

240 FOR x = 1 TOn 

250 LET p(x) = 15% RND +1 

260 NEXT x 

270 CLS 

280 FOR x = 1 TOn 

290 PRINT AT x, 03 p(x?) 


300 NEXT x 

310 LET m = 18 

320 FOR i = n-1 TO 1 STEP -1 

330 FOR j = 1 TOL 

340 LET L = j+i 

350 IF pj) p(L) THEN GO TO 500 


360 LET bt “petaannan”( TO LEN STR ptj)) 
= PRINT AT j, OF OVER 13 PAPER S53 b* 

370 IF L = m THEN GO TO 390 

380 FOR x m TO L STEP SGN (L—m) = PRINT INK 23 
aT x, 18; “ GRE A GRE B GRA C"; 
AT x+ SGN (m-L), 187 "..." NEXT x 

390 LET y = LEN STR® p(L) + FOR x = 17 TO y STEP -1 
= PRINT INK 23 AT L, x5 
“ GRe A GRE B GRA C." = NEXT x 

400 FOR x = 0 TO 10 = PRINT ATL, x3 "4"5 PC(L)G 

“INK 23 " GRA A GRE B GRA C" + NEXT x 

410 FOR x = L TO 3 STEP -1 = PRINT AT x, 115 p(L§ 

INK 2; " GRE A GR B GRA C's AT x+1, 115 


“sesadaesanaca” & NEXT x 


420 PRINT OVER 13 AT 3, 93 p(j) 
430 FOR x = j TOL + PRINT OVER 13 AT x, OF P(5)5 
AT x, 0% pj) = NEXT x = PRINT AT L, 03 p(3) 
440 FOR x = 10 TO O STEP -1 + PRINT AT j, *% p{L)3 
INK 2; " GRA A GRA B GRA C"; "." = NEXT x 
450 FOR x y TO 17 + PRINT AT 5, x3 INK 23 
". GRE A GRE B GRA C" = NEXT x 
460 LET m 


i 
p(L) 


470 LET t 
480 LET p(L) = pi) 
490 LET p(j) = t 


500 NEXT 3 


= 


S10 NEXT i 

520 FOR x = m TO 18 + PRINT AT x, 185 INK 25 
“ GR A GRA B GRA C"; AT x-1, 183 “ss.” 
NEXT x 

550 PRINT AT 21, 03 “Do.you.want.to.sort 
aagain?." 


540 LET b&® = INKEY$ = IF b$ = "" THEN GO TO S40 
S50 IF b$ = “y" OR b$ = “Y" THEN RUN 100 
560 IF b® = “y" OR b& = "Y" THEN RUN 100 


600 DATA 0, 0, 2, 6, 15, 30, 63, 254 
610 DATA O, 0, 63, 127, 241, 100, 238, 4 
620 DATA 63, 255, 241, 226, 158, 223, 14, 4 


SORT VERSION 2 


100 BORDER 7 + PAPER 7 = INK 0 ¢ OVER © = CLS 

110 RESTORE 600 

120 FOR i = USR "a" TO USR "d"-1 

130 READ x = POKE i, x = NEXT i 

140 LET n = 15 

150 DIM p(n) 

160 PRINT “Do.youawant .to.choose.your .own 
aanumbers .(y.or 4n)?" 

170 LET b® = INKEY$ = IF b$ = "" THEN GO TO 170 

180 IF b® = "n" OR b* = “N" THEN GO TO 240 

190 PRINT "Enter .1S.numbers.to.be.sorted” 

200 FOR y = 1 TOn 

210 INPUT p(y) = PRINT p(y) 

220 NEXT y 

230 GO TO 270 

240 FOR x = 1 TO n 

250 LET p(x) = 15% RND +1 

260 NEXT x 

270 CLS 

280 FOR x = 1 TOn 

290 PRINT AT x, 03 plx) 

300 NEXT x 


310 LET m = 18 

320 FOR j = 1 TO n-1 

330,FOR i = j+1 TOn 

340 LET L = n+j-itl 

350 IF p(j) <= p(L) THEN GO TO S00 

360 LET b® = “.saeacaan”( TO LEN STR® p(j)) 


= PRINT AT j, 03 OVER 13 PAPER 53 bs 

370 IF L = m THEN GO TO 390 

380 FOR x = m TO L STEP SGN (L-m) = PRINT INK 23 
AT x, 183 " GRE A GRA B GRA C's 
AT x+ SGN (m-L), 183 "ss." NEXT x 

390 LET y = LEN STR® p(L) = FOR x = 17 10 y STEP -1 
= PRINT INK 23 AT L, x3 
"“ GRE A GRA B GRA C." = NEXT x 

400 FOR x = 0 TO 10 = PRINT ATL, x3 “a"3 p(L?$ 
INK 2; “ @R8 @ GRA B GRA C” = NEXT x 

410 FOR x = L TO 5 STEP -1 = PRINT AT x, 115 pt(L)§ 
INK 2} “ GRE A GRA B GRA C's AT x+1, 115 


“nssdesecaaaae"” * NEXT x 
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420 
430 


440 


450 


460 
47o 
480 
490 
500 
510 
520 


530 


540 
550 
560 
600 
610 
620 


PRINT OVER 13 AT j, 93 pt) 
FOR x = 3 TOL = PRINT QVER 13 AT x, 03 p(j)5 


AT x, 03 pla) = NEXT x © PRINT ATL, 03 p(j) 
FOR x = 10 TO 0 STEP -1 PRINT AT 5, x3 p(L)3 
INK 2; " GRA A GRA B GRA C5 "4" = NEXT x 
FOR x = y TO 17 = PRINT AT 3, INK 23 
". GRA A GRE B GRA CY = NEXT x 
LET m= 5 
LET t = p(L) 
LET p(L) = pj) 
LET p(j) = t 
NEXT i 
NEXT 5 
FOR x =m TO 18 = PRINT AT x, 183 INK 25 


" Ge A GRE B GRE C's AT x-1, 183 * 
NEXT x 

PRINT AT 21, 93 “Do.you.swant.to.sort 
aagain?.” 

LET b = INKEY® = IF b& = "" THEN GO TO 540 

IF b* 'y" OR bs Y" THEN RUN 100 

IF b& “y" OR bs Y" THEN RUN 100 

DATA 0, O, 2, 6, 15, 30, 63, 254 

DATA 0, 0, 63, 127, 241, 100, 238, 4 

DATA 63, 255, 241, 228, 158, 223, 14, 4 


SORT VERSION 3 


100 BORDER 7 : PAPER 7 = INK © = OVER O + CLS 

140 LET n = 15 

150 DIM pin) 

160 PRINT “Do.you.want .to.choose .your .own 
aanumbers.4 Cy .or 4m)?" 

170 LET b$ = INKEY$ = IF b& = THEN GO TO 170 

180 IF bt n” OR b& = “N" THEN GO TO 240 

190 PRINT "Enter .15.numbers.to.be.sorted" 

200 FOR y = 1 TOn 

210 INPUT p(y) = PRINT p(y) 

220 NEXT y 

230 GO TO 270 

240 FOR x = 170 n 


250 LET p(x) = 15% RND +1 
260 NEXT x 
270 CLS 


280 GO SUB 1000 = GO SUR 8000 

290 GO SUB 1000 

300 STOP 

1010 FOR x = 1 TOn 

1020 PRINT AT x, 03 p(x) 

1030 NEXT x 

1040 RETURN 

8000 REM sort ssubroutine 

g010 FOR 3 = 1 TO n-1 = FOR i = j+1 TOn = 
LET L = ntj-i+t 

8020 IF p(L) <= p(j) THEN LET t = p(L) = 
LET p(L) = p(j) ? LET p(y) =t 

8030 NEXT i = NEXT j = RETURN 
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Copyright (c) by Beam Software 


This program solves two simultaneous equations of the type 
ax + by +e =0 


This equation is the general form of equation for a straight 
line, and the ‘solution’ of two such lines is the mathematica 
term for the point where the two lines cross. 


You will be asked by the program to enter the values of a, b 
and c for each of the two equations, and the program will find 
out for what values of x and y the lines meet. 


If there is no solution ~ in other words the two lines are 
parallel and do not meet ~ the program will tell you so. 


The program will then draw for you each of the two lines and 


show you where they cross, 


Program structure 


The actual calculation part of the program is fairly small — 
most of the program consist of getting the correct information 
from you, and then displaying the results to you (including 
the graph). 


Line 830 calculates the determinant D. If D is zero, no 
solution exists. 


The block from 900 - 990 determines in which quadrant the 


intersection of the two lines occurs, and in which direction 
the graphs should be plotted 


a7 


SIMULTANEOUS EQUATIONS 


100 REM EQUATION 

101 REM 

110 REM simultaneous equation 

120 BORDER 7 = INK 1 = PAPER 7 = FLASH © 
= CLS 

130 PRINT AT ©, 53 INVERSE 13 
“SIMULTANEOUS EQUATIONS" 

140 PRINT AT 2, O03 INK 23 INVERSE 13 
“alX+b1V+ci = 0" 

150 PRINT AT 2, 163 PAPER 6; INK G3 “a2X+b2y+c2 = 0” 

160 PRINT AT 4. 03 “al 3 AT 4, 163 “a2 = "3 
AT 5, OF "bi = "3 AT S, 163 "b2Z = "3 AT 4, © 

AT 6, 163 “c2 

REM coeficient .array 


INVERSE © 


510 REM input first .equation 
520 FOR I = 1 70 3 


S3Q PRINT AT i+ FLASH 13 " > "5 FLASH G3 INK 23 
INVERSE 1¢ “ssasscssanaa” 
540 INPUT S$ = LET C(I) = VAL SS 


550 PRINT AT 143, 33 “sessaseaasane"’S 
AT I+3, 43 ABS C(I) 

S60 IF SGN C(I) = —1 THEN PRINT AT I+3, 33 "-" 

S70 NEXT I 

4600 REM 

610 REM input .second ,equation 

620 FOR I = 4 10 6 

430 PRINT AT I, 193 FLASH 13 “ > "3 FLASH 03 
PAPER 63 “....seeeenae” 

440 INPUT S$ = LET C(I) = VAL S& 

650; PRINT AT I, 197 "“sasscaanaanna” 
AT I, 203 ABS CiT) 

#60 IF SGN C(I) = -1 THEN PRINT AT I, 193 "-" 

670 NEXT 1 

g00 REM 

10 REM calculates.solution 

820 PRINT AT 7. 03 

830 LET D = C(2)0(4)-C(1) "C15 

840 IF D = 0 THEN PRINT INVERSE 13 "DEGENERATE 
INVERSE 0; “."3 FLASH 13 "NO.SOLUTTONS” 
RUN 

850 LET A = (C(SF eC (S)-0 (2) 40 (5)) 7D 

B40 LET K# = STR® A = LET A = VAL Xe 

B70 LET B = (C(1)#C(6)-C(S) wC 0499 /D 

@80 LET Y# = STR& B ? LET B = VAL YS 

890 PRINT INVERSE 13 "SOLUTIONS": INVERSE 9: 


Wk ST Kes Maa = 2a Ve 
REM 

REM plot .axis 

IF @ >= 0 AND B >= 0 THEN LET ox 
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LET oy = 0 = PRINT AT 2i, 83 
“y¥"s AT 21, 233 "Xx" 

930 IF A >= O AND B < © THEN LET ox = 72 ¢ 
LET oy = 111 + PRINT AT 8, 83 "O"F AT 21. 
ov; AT 8, 253 "x" 

940 IF A < 0 AND B >= 0 THEN LET ox = 183 + 
LET oy = © = PRINT AT 21, 233 "O"F AT 21. BF 
ox"; AT 8, 255 "¥" 

950 IF @ < 0 AND B < © THEN LET ox = 183 + 
LET oy = 111 = PRINT AT 8, 233 "“O"F AT 8, 83 
AX"s AT 2h, 257 "ve 

960 LET dx = ( SGN A >= 0)-( SBN A < OF 

970 LET dy = ( SGN B >= 0)-¢ SGN B < 0) 

980 PLOT ox, oy = DRAW INK O53 dx#ill, O = 
PLOT ox, oy + DRAW INK O03 0, dy#1iL 

990 GO SUB 1500 = REM plot.lines 


AT 8, 85 


1000 INPUT "More.equation?(ysor an) "3 ke 
1100 IF k# = "n“ OR k# = "N" THEN STOP 
1110 IF k$ = "y" OR k& THEN RUN 
1120 GO TO 1000 

1500 REM 


1510 LET rx = ABS (SS/A) = LET ry 
1520 REM draw. first.line 
1530 PRINT AT 2, 03 INK 23 OVER 13 FLASH 13 


i540 IF C(1) = 0 THEN LET ixi = 0 = 


ABS (55/B) 


LET ay = -C(3)/C(2) = LET ix2 = 2¥A = 
LET iy2 = iyl + GO TO 1620 
1550 IF C(2) = 0 THEN LET iyi = 0 = 
LET ixt = -C(3)/C(1) = LET iy2 = 2#B = 
LET ix2 = ixt = GO TO 1420 
LET ixt = 2#@ = LET ayl = ~(C(3)+C(1)%ix1)/0(2) 


IF dytiyl < © THEN LET ivl = 6O TO 1590 
IF ( ABS iyi- ABS (2*B)) > O THEN LET iyl = 2*B 
LET ix2 = 0 = LET iy2 = -C(3)/C(2) 
IF dyfiy2 < 0 THEN LET iy2 = 0 = GO TO 1420 
IF ( QBS iy2- ABS (2R)) > O THEN LET iy2 = 248 
PLOT oxtrx®ixl, oytry#iyl 
DRAW (ix2-1x1)&rx, (iv2-1yl) try 
FAUSE 100 
PRINT AT 2, 03 INK 23 INVERSE 13 
“alatblY+c1 = 0" 
1800 REM 
1810 REM draw,.second .line 
1820 PRINT AT 2, 143 OVER 13 FLASH 13 PAPER 63 
INK 03 “ssenaassnnen” 
1836 PLOT OVER ox+rxtixl, oytrytiyl 
1840 DRAW OVER (ix2-1x1)8rx, Gy2-iyl) try 
1850 IF €(4) = 0 THEN LET 1x3 = 0 = 


LET iy3S = -C(6)/C(S) = LET 1x4 = 24a = 
LET iy4 = iyS = 6O TO 19: 

i860 IF C(S) THEN LET 1y3 = 0 = 
LET 1x3 = -€(6)/C(4) = LET iy = 24B = 


LET 1x4 = ixd = GO TO 1930 
1870 LET ixS = 2A = LET iy. (E(B) 40 (4) iM S/O CSD 
1680 IF dy&ivS < 0 THEN LET iy3 = 60 TO 1900 
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1290 
1900 
i910 
1920 
1930 
1940 
1950 
3960 
1970 
1980 
1990 


IF ( ABS iy3- 6BS (2xB)) > O THEN LET 1y3 = 248 
LET 1x4 = 0 = LET 1y4 = -CiS)/0K5) 

IF dy¥iy4 < 9 THEN LET iy4 = 6 = 60 TO 1930 

IF ( ABS iva— ABS (24B)) > © THEN LET 1y4 = 245 
PLOT oxtixSerx, oytiysary 

DRAW (ix4—-1xS) rx, Gyd-iysiary 

PAUSE 100 

PRINT AT 2, 16; INK 03 PAPER 63 “a2X+b2y¥+c2 = 
PLOT oxtixiarx. oytivliry 

DRAW (in2-axl) are. (hy2-iyl)ary 

RETURN 
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Copyright (c) Clifford Ramshaw 


DESCRIPTION 


You have been captured by the ALIEN and you are 
stranded in a tower guarded by an ALIEN ROBOT 

You have to contend with the force of gravity 
dragging you to the ground and the ALIEN's powerful 
tractor pulling you back towards the tower. 

More than that, once the ALIEN ROBOT discovers that 
you are escaping, it will then shoot at you with the high 
power suction laser beam. Once you are shot, you will 
then be sucked back and put into the prisoner tower 
again. 


GOOD LUCK IN YOUR ESCAPE PLAN !! 


HOW TO RUN THE PROGRAM 


To start the program, type RUN (ENTER). 
Use 'w! key to move up, ‘d! key to move forward 


You have ta mave above the prisoner cell level before 
you can move forward. Unless you move forward, you will 
be continually sucked backward until you are back to the 
tower again. Similarly, you will be falling down back to 
the cell level if you don't press 'w'. 


The game will halt every time you are shot or you 
escape successfully. 


Press any key to start another game. 
. 


PROGRAM STRUCTURE 


This program uses special USER DEFINED GRAPHIC 
characters to draw the ALIEN ROBOT and your space-craft 
shape. 

A close to real-time counter is maintained by using 
the frame counter to record the time you lasted before 
being re-captured by the ROBOT or if you are lucky, the 
time you took to escape. 


The structure of the program is as follows: 


INTIALISATION 


SET SCREEN VARIABLES 
SET USER DEFINED GRAPHIC CHARACTERS 
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MAIN LOOP 


DRAW TOWER SHAPE AND SAFETY MARGIN LINE 
INITIALISE VARIABLES 
Ll: STORE OLD POSITION 
CALCULATES NEW POSITION 
IF NOT MOVING FORWARD 
generate sound tone 
DRAW ALTERNATE SHAPE OF SPACE CRAFT 
IF REACHES MARGIN LINE 
prepare message 


goto TI: 
IF NOT FIRE AND RND(.9 
goto LI: 


IF FIRE-FLAG NOT ON 
set fire-flag 
calculates final position for ROBOT 
BLANK OLD ROBOT 
MOVE ROBOT TOWARDS FINAL POSITION 
DRAW NEW ROBOT 
IF FINAL POSITION NOT REACHED 
goto) Li: 
FIRE LASER BEAM ( PLOT & PLOT OVER ) 
IF NOT HIT SPACE GRAFT 
goto LI: 
PERFORM DRAW BACK ROUTINE 
PREPARE MESSAGE 
Ti: CALCULATE TIME LAPSE 
PRINT FINAL MESSAGE 


SPECIAL NOTE 
The TIME LAPSE before the game ended successfully or 
tragically is affected by the time taken up by any sound 
generation within the program; but it is close to 
real-time. 

At the end of the game, any key pressed will restart 
the game. 


G 
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(CE ESCAPE 


REM ESCAPE 
REM SPACE .ESCAPE 
GO TO 8000 
REM 
REM define.ship.shape 
FOR 1 = USR "A" TO ( USR "3"+7) 
READ m + POKE I, m 
NEXT 1 
DATA 0, 0, O, 30, 30, 49, 61, 61, 
0) 0% 60. 60. 198, 246, 246, 
43. 49, 49, 43, 14, 14, 2, 9, 
254, 198, 198, 254, 56, 56, 32. 0 
590 DATA uo, O, O, 15, 15. 49, 49, SS. 
a, 0, 248, 248, 198, 198, 2 
SS. 63, 49, 49, 63, 112, 96, 44. 
222, 254, 198, 198, 254, 7, 3, 1 
600 DATA 255. 255. 255, 207, 207, 255, 
240, 248, 252, 63, 63, 252, 248, 
REM 
REM draw. tower .routine 
CIRCLE INK G3 12, 1467, 7 
INK G = PLOT 14. 158 = DRAW 7, 0 
+ DRAW 0, -15B = DRAW -23, 0 = 
= DRAW 22, 0 
1040 PLOT 255, 23 = DRAW GO, —23 
1050 FOR T = 23472 TO 23674 
= REM init .time.count 
1060 POKE 1, 9 
1970 NEXT FE 
1uB0 RETURN 
Za00 REM 
2010 REM trap back 
2020 PLOT 24, (2i-ng) *8+4 
= DRAW INK 23 (D-3)4#8-1, 0 
2030 FOR I = (ID+(D > 1D)) TO O STEP -1 
2050 PRINT 4TH. [: “ GBA @ GRA B. 
= PRINT AT Ht+i, 1; " GRA C GAS D.* 
S060 BEEP 105, (36+1) 
2070 NEXT E 
2090 FOR J = RH TO 18 
2100 PRINT AT J. 03 “a4 
= PRINT AT J*1, 
2110 PRINT AT J+1, OF 
+ PRINT AT J+2, 
2120 BEEP .G5. (24+3) 
2130 


Z14) 


REM main.loop 
HORDER 6 : PAPER 6 = INK 0 = OVER 0 = FLASH © 


8020 RESTORE = GO Ste 500 
REM define .user .graphic.for «ship 
204 GO SUB 1000 = REM draw.tawer 
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LET S = 30+ LET H= Zo s LET D = 


aa INT ¢ AND 417942 


LET OH =H = LET OD =D 

LET k& = INKEYS 

LET H = H#CH < 19)-(k® = "Ww" AND H > G)aILS 
= LET IH = INT H 

LET D = D+(ks = "G" AND H < 19)81.5-(0 > B)4- 
= Lef Ip = INT BD 

IF k@ <>" THEN BEEP .0125, —24 


IF D > 30 THEN LET D = 53 
IF sh = G THEN GO TO 8170 
LEP sh = 0 
PRINT AT OH, GDs "lL." 
= PRINT AT OH+1. OD: " 
PRINT AT H. D3 " GHG E GEE F" 
= PRINT AT H+1, D3 " Gee G GRE H" 
GO TO 8200 
LET sh =i 
PRINT AT GH. GD: ". 
= PRINT AT OH+i. OD: ".." 
PRINT ATH, Di " GRE A GHe B" 
+ PRINT AT H+i, 03 “ GRE C GEE DY 
IF D = 30 THEN PRINT AT 21, 03 
"YOU ESCAPED .IN = GO TO 83 
IF #r = 0 AND RND < .9 OR H > 19 
THEN GO TO 8060 
If #r = 1 THEN GO TO 8270 
LET ng = INT ( iNT ¢ RND HZ}+H)-1 
= LET ng = ng-ing » 18) 
TF ng < 2 THEN LEY ng = 2 
LET gm = (ng > ogi-ing < og) 
LET fr = 1 
IF na = og THEN GO TO 8510 
PRINT AT og, OF “aa! = LET ag 
PRINT AT 0g, 03 INK 2; " Be T GRe J” 
GO TO B60 
PLOT 24, (2i-ng)#8+4 = DRAW INK 23 214, 
= BEEP .2, 20 
PLOT OVER 1; 24, (21-ng) &8+4 


= DRAW INK 23 OVER 13 214, 0 = BEEP .i, 


LET RH = (TH+(H > IHD) 
= IF ng <> RH AND ng <> RH+1 OR RH > 
THEN LET fr = = GO TO BOeG 

SO SUB 2000 

PRINT AT 21. 03 “YOULASTED. "3 

LET T = INT (((65536% PEEK 23574+256% 
PEEK 254754 PEEK 23672) / (504607) 100) 

PRINT 13 “.MINUTES 

IF INKEY$ = "w" OR INKEYS = ° 
THEN GO TO 83490 

IF INKEY$ = "" THEN GO TO 8: 

x Bo TO Bou 
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Lunar Lander 


Copyright (c) lifford Ramshaw 


DESCRIPTION 


You are the pilot of a remote-control space capsule 
to be landed on the rough moon surface. 

Every time you land unsuccessfully, you will destroy 
the capsule and also make the landing site impossible to 
be used again. You have to use another landing site and 
try again with another capsule. 

On successful landing a flag will be raised to 
signify your claim of territory. 

The capsule has a constant momentum build up moving 
towards the right. At the same time, it is dragged down 
by the moon gravity. 


GOOD LUCK !! 


HOW TO RUN THE PROGRAM 

To start the program, type RUN (ENTER). 

Use '5' to move to the left, '7' to increase your 
height. 

The space capsule will be moving constantly forwards 
and at the same time be dragged down by the moon gravity. 
You need to land with the two legs of your space 
capsule exactly on the BLUE GYAN land site to be 

successful , 


PROGRAM STRUCTURE 


The program uses the PLOT and DRAW facilities to 
RANDOMLY draw the landscape for each game. 

Special USER DEFINED GRAPHIG CHARACTERs are used to 
draw the space capsule. 

The crashing test of the capsule is based on colour 
attribute testing. 


The structure of the program is as follows: 


INITIALISATION 


SET USER DEFINED GRAPHIC CHARACTERS 
11: SET LANDING FLAG TO 0 
GOTO MAIN LOOP 
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MALN LOOP 
SET SCREEN CONTROL VARIABLES 
DRAW LANDSCAPE AND LANDING SITE 
INITIALISE CAPSULE POSITION 
Li: STORE OLD POSITION 
CALCULATE NEW POSITION 
BLANK OLD SHAPE, DRAW NEW SHAPE 
IF CRASH 
draw explosion ( GOSUB 2000 ) 
generate sound 


goto El: 
IF NOT LANDED 
goto Ll: 


FLASH BORDER, DRAW FLAG, GENERATE SOUND TONE 
El: PAUSE 
GoTo Ids 


SPECIAL NOTES 


The timing between blanking and drawing of capsule 
has to be short in order that the capsule will not be 
flashing. 

The paper colour of the display is WHITE (7) and the 
ink colour of display is BLACK (0). 

Crash testing of the capsule is based on colour 
attributes; for landscape, the attributes are INK RED (2) 
PAPER WHITE (7); for landing site, INK BLUE (1) PAPER 
CYAN (5). 

Thus, for perfect landing of two legs of the capsule, 
the correct testing will be (41+41) on attributes of new 
positions for the two bottom legs. 

So, if you want to change the colour attribute of the 
landscape or the landing site or the background, then you 
will need to adjust the testing value in line 8100 & 
8150. 


LUNAR LANDER 


100 
110 
120 


130 
140 
150 
160 
170 
180 


190 


200 


210 


220 

230 
1000 
1010 
1020 


1030 
1040 


1050 LET 


1060 


1070 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


1570 
1580 


1590 


REM LUNAR 
REM Lunar .Lander 
RESTORE =. FOR I 


1 TO 16 


= REM initialise GRAPHIC 


LETS 
FOR 3 
READ g = 
NEXT J 
NEXT I 
DATA 0, 0, 1, 1, 
0, 0, 128, 128, 
53, 107, 127, 
172, 214, 254, 
DATA: Ss: 15: 45, 45 
224, 176, 140, 
HS. dy) tii Lay Po 
224, 128, 224, 
DATA 0, 0, 0, 4, 
0, 0, 0, 0, 96, 
27, 74. 3s) be 9; 
120, 168, 112, 
DATA 160, 67, 38, 
4, 154, 244, 
194, 96, 32, 
130, 14, 12, 
LET td = 0 
GO TO 8000 
REM 


uSR 
1708 
POKE 


(S+J-1), 


243, 


124, 
36, 
36, 


( CHR® (144+1-1)) 


9 


Fa 2s 
224, 


31, 
224, 
96, 9b, 
207, 6, 6, 
4, 1, 1, 1, 
134, 129, 135, 
753i, 25, 
128, 224, 
S, 15; 4; 
192, 224, 
0, 9, 0, 
32, 0. 0, 
60, 24, 48, 
6, 


4, 4, 
104, 120, 
124, 


78, 


25, 
248, 

192, 
3, 3 


152, 
192, 


140, 176, 


224, 152 
15, 
248, 


248, 


Q 

96, 
6, 
TFs 
195, 


oy 
O75 


193, 
2 


REM draw.base.and .landshape 


LET bx 


INT ( RND #21) 


+ IF bx < 11 THEN GO TO 1020 


LET Lt = bx#8 = 
PRINT AT 21, bx3 
= PRINT AT 21, 
“ GRE SHI 6 
= PRINT AT 21, 
di = -1 + 60 


LET di 


=1e 
RETURN 
REM 
REM 
REM 
Ler 
LeT 
LET up 
IF di 

= DRAW INK 23 
PLOT Lx, Ly 
LET a = RND 

2 LET ry 

(INT ( RND 
CET rx 


input .di 

Ly = B+(di 
COrt+24) 
255-(di 


(a 


LET rt 


1 THEN PLOT rt, 
24, 


(bx+4) 28 

"gpa sii 8" 

bx+15 PAPER 53 INK 1 
inv GRa SHI 6 Iau “ 
bx+3; " GRE SHI 8" 
SUB 1500 


REM draw.left .of .landshape 
GO SUB 1500 
REM draw .right .of .landshape 


draw.landshape 


1)416 

R(di = 1d) 4(LER (da 
—1)*255, 

8 


-1)) 


16 


<= .6)-(a > .6))* 


448) +1) 
dit( INT ( RND *16)+1) 
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1400 
1610 


1620 
1630 
1640 
1450 
2000 
2010 
2020 
2030 
2040 


2050 
2060 
2070 


2080 
2090 
2100 


2110 
2120 
2130 
2140 


2150 
B000 
B010 
8020 


g030 
8040 
8050 
8040 
8070 
go80 


8090 


@100 
8110 


B120 
8130 


140 
8150 


IF dit(Lxtrx) > up#di THEN LET rx = up-Lx 
IF Lytry > 144 OR Ly+ry < 0 
THEN LET ry = O-ry 
LET Lx = Lxtrx ¢ LET Ly = Ly+ry 
DRAW INK 23 rx, ry 
IF Lx <> up THEN GO TO 1550 
RETURN 
REM 
REM Explosion .routine 
PRINT AT Hs X3 “aa" 
FOR J = 1705 
PRINT AT H+i, Xs3 " GRE A GRA BY 
= PRINT AT H+2, X3 “ GRE C GRA D" 
BEEP .05, -( RND *48) 
FOR I = 1 TO 10 = NEXT I 
PRINT AT H+1, X; " GRA I GRA J" 
= PRINT AT H+2, X3 “ GRE K GRA L" 
BEEP .05, —( RND *48) 
FOR I = 1 TO 10 = NEXT I 
PRINT AT H+1, x; " GRE M GRA N" 
+ PRINT AT H+2, X3 " GRA O GRE P" 
BEEP .05, —( RND x48) 
FOR I = 1 TO 10 = NEXT T 
NEXT 3 
FOR i = h+i TO 20 
PRINT AT i-ly *3 "aa" 
AT i, x3 “ GR D GRE C's AT itl, xs 
NEXT 1 
RETURN 
REM 
REM MAIN.control .loop 


GRS A GRA BY 


BORDER 3 = INK 0 + PAPER 7 = OVER 0 = FLASH O 


= CLS 

GO SUB 1000 + REM draw.land 

LET x 2 LETH =X 

LET OH LET Ox = x 

LET X = X4#0.5%(X < 30)-( INKEY$ = "5") 


LET H = H+0,5-( INKEY$ 
PRINT AT OH, OX; "si" 
= PRINT AT OH+1, OX3 "aa" 
PRINT AT H, X3 “ GRE A GRE B" 
2 PRINT AT H+1, X3 “ GRE C GRE D" 
LET cr = ATTR (H+2, X)+ ATTR (H¥2, X+1) 
IF cr < 58 OR cr = 82 OR cr = 112 
THEN GO TO 8140 
GO SUB 200 REM explode 
BEEP .5, 17 + BEEP .5, 15 ¢ BEEP .25, 13 
? BEEP .25, 12 + BEEP .5, 10 + BEEP .25, 
+ BEEP .25, 12 + GO TO 8210 
IF H 20 THEN GO TO 8120 
IF er = 82 THEN LET Ld = 1 = GO TO 8170 


M7") HCH > 0) 


8160, IF Ld = 0 THEN GO TO 8050 
FOR I = 1 TO 6 = PAUSE 25 = BORDER I = NEXT I 


8170 


giao 


= BORDER 3 
PRINT AT 18, bx+ GRS — GRA F“ 
= PRINT AT 19, bx+13 “ GRE G GRA H” 
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1s 


8190 BEEP .125, 12 + BEEP .25, 19 + PAUSE 10 


+ BEEP .125, 12 + BEEP .25, 19 = PAUSE 10 
+ BEEP .125, 12 + BEEP .25, 19 = PAUSE 10 
= BEEP .125, 12 + BEEP .25, 19 = PAUSE 10 


8200 BEEP .25, 12 = BEEP .125, 14 + BEEP .125, 15 
2 BEEP .125, 22 + BEEP .125, 22 

BEEP .125, 15 + BEEP .125, 14 

BEEP .125, 19 = BEEP .125, 14 

BEEP .25, 12 

9210 FOR I = 1 TO 100 + NEXT I = CLS = GO TO 220 
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Alien Blitz 


Copyright (c) by Clifford Ramshaw 


You are the sole defender of the space station. Suddenly 
overhead you see them - a convoy of enemy aliens. They must 
know of your power because they stay safely out of your 
tractor beam reach. 


What's this? - slowly one of them separates itself from the 
rest of the fleet and swoops down on your position. Is i 
possible that it's flapping its wings, or is that a space 
illusion? 


No time to worry about that - there are missiles falling 
Got to get them, those guys are fast; quick; get out the 
tractor beam and pull him in. Got him. But wait — another 
alien is detaching himself from the convoy . . - 


Programming considerations 


This program is an arcade game for the Spectrum loosely 
based on similar games to be found on video machines. 


As such the main programming considerations are speed and 
visual effects. Sound is only used when necessary, as it would 
slow things down too much otherwise. 


Therefore a minimum of work is to be done in each cycle, to 
keep speed at a maximum. Only 3 variables are to be updated 
each cycle: 

coordinates of swooping alien 

column position of player 


The main loop is divided into two cycles, one for wings up 
shapg and one for wings down shape. This allows the player and 
alien to move faster as no decision needs to be made within 
the main cycle as to the shape to be drawn. 


Colour control codes are used within PRINT strings rather 
than separately specifying INK 4, etc., to speed things as 
well. 


Program Structure: 


100 -340 Define shapes, draw convoy 
500 — 630 First part of cycle 
update all positions 
650 - 790 Second part of cycle 
1000 ~ 1440 Successful hits by player or alien 
1500 ~ 1540 Destruction of enemy convoy 
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ALIEN BLITZ 


100 DATA 14, 31, 28, 24, 14, 16, 146, 16, 112, 248, 
56, 24, 8, 8, 8, B= 
REM wings .resting.shape.—AB 

110 DATA 3, 15, 63, 127, 127, 127, 255, 227, 192, 
240, 252, 254, 254, 254, 255, 199 < 
REM top.half .body .shape.—.CD 

120 DATA 227, 227, 99, 99, 127, 6&3, 7, 0, 199, 199, 
198, 198, 254, 252, 224, 0 = 
REM bottom.hal# .body .shape.—.EF 

130 DATA 240, 112, 56, 248, 124, 62, 255, 30, 15, 
14, 28, 31, 62, 124, 255, 120, 7, 0, 0, 0, 0, 
0, 0, 0, 224, 0, 0, O, O, 0, 0, O = 
REM wings .up.shape.-GHIJ 

140 DATA 0, 0, 0, 0, 0, 0, O, 7, G, O, O, 0, 0, 0, 
0, 224, 30, 255, 62, 124, 248, 56, 112, 240, 
120, 255, 124, 62, 31, 28, 14, 15 + 
REM wings.down .shape.—.KLMN 

150 DATA 16, 16, 16, 16, 24, 28, 31, 14, 8, 8, 8, 
8, 24, 56, 248, 112 + 
REM shape.of .falling.wings.—.OP 

160 DATA 0, 0, 12, 15, 31, 63, 127, 255, 24, 60, 
60, 255, 255, 255, 251, 129, 0, 0, 48, 240, 
248, 252, 254, 255 + 
REM shape.of laser .base .-ORS 

170 DATA 66, 66, 38, 27, 15, 7, 3, 1, 66, 66, 100, 
216, 240, 224, 192, 128 = 
REM shape.of .enemy .bullets.—.TU 

180 FOR i = USR “ GBS A" TO USR " GRA A"+167 

190 READ x = POKE i, x 

200 NEXT i 

210 BORDER 7 = PAPER 7 + INK 0 + OVER O = CLS 
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220 LET v = 2 

230 LET s 1 

240 LET g = 5 

250 LET x = 3444s 

260 LET y = 0 

270,PRINT TAB x3 

280 FOR i = 1 TO S-s 

290 PRINT “. BXI SHI 2 GRA C GRA D.." 
300 NEXT i 

310 PRINT PRINT TAB x3 


320 FOR i = 1 TO 5-s 
3350 PRINT " GXI SHI 4 GRE A EXIT SHI 2 GRE E 
GBS F EXT SHI 4 GRE B.'s 


340 NEXT i 
500 LET g = g+(g < 27)8( INKEY$ = “c")-(g > 108 
( INKEY$ = "2") 


510 PRINT AT v, gj “4 EXIT SHI 2 GRE @ GRA R 
AT ys 5 “sana 
AT y+1, #3 “sean” 
520 LET x = x+(y > 3)-ty < 4428 
SGN (g-x)*( RND > .5) = IF x > 28 THEN 
LEE x= 0 
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530 
540 


550 
S460 
570 


580 
590 
600 
610 


620 


630 
640 
650 


660 


670 


680 
690 


700 
710 
720 


730 
740 
750 
760 


770 


780 
790 
1000 
1005 
1010 


1015 
1020 
1200 
1210 


LET y = y+*1 
PRINT AT y, x3 " BXT SHI © GRA G EAT SHI 1 
Ghe C GRa D EXT SHI © GRA HY; AT y+i, x3 
" GRE I EXIT SHI 1 GRA — GRA F EXI SHI O 
Gee J” 
IF y = v-2 THEN GO TO 1400 
IF RND > .15 THEN GO TO 400 
FOR i = y+2 TO v-1 = BEEP .02, v-i = 
PRINT AT i, x+13 “sa"3 AT itl, +15 
“ GRe T GRA U" = NEXT i 
PRINT AT i, x+15 "aa" 
IF g = * OR g = x-1 THEN GO TO 1300 
IF INKEY$ <> "m" THEN GO TO 650 
LET m = 150 2 IF g = x OR g = x-1 THEN 
LET m = 157-8y 
PLOT 19+8%g, 8 = DRAW O, m = BEEP .1, 0 = 
IF m < 150 THEN GO TO 1000 
DRAW INVERSE 13 0, 1 + DRAW INVERSE 13 0, —m-1 
REM second .cycle 
LET g = gt(g < 27)8( INKEY$ = "c")-(g > 198 
( INKEY$ = "“z") 
PRINT AT v, g3 "4 EXI SHI 2 GRA @ GRA R 
AT ¥y *9 “aean"s 
AT y#i, x5 “Lean” 
LET x = x+(y > S)-ly < 4428 
SGN (g-x)®( RND > .5) = IF x > 28 THEN 
LET x =0 
LET y = y+1 
PRINT AT y, x3 “ BAI SHI O GRE K EAI SHI 1 
GRe C GRS D EX SHI O GHA L"; AT ytl, x3 
“ GRE M EXI SHI 1 GRE © GRA F 
EXI SHI © GRA N” 
IF y = v-2 THEN GO TO 1400 
IF RND > .15 THEN GO TO 750 
FOR i = y+2 TO v-1 = BEEP .01, v-i ¢ 
PRINT AT i, x+15 “2."3 AT +1, «+15 
“ GRe T GRE U! NEXT i 
PRINT AT i, x+13 
IF g = x OR g = x-1 THEN GO TO 1300 
IF INKEY$ <> “m" THEN GO TO S00 
LET m = 150 ¢ IF g = x OR g = x-1 THEN 
LET m = 157-8ty 
PLOT 19+8xg, 8 = DRAW 0, m = BEEP .1, 0 = 
IF m < 150 THEN GO TO 1000 
DRAW INVERSE 13 0, 1 = DRAW INVERSE 13 0, —m-1 
GO TO 500 
FOR y = y+1 TO v-2 
BEEP .02, y/2 
PRINT AT y-1, x3 "soaa"3 AT yy *3 
“ GI SHI 2 GRE O EXT SHI 6 GRA C GRA D 
AT y+i, x3 
Sul 0." 


NEXT y 

PRINT AT y-1, 3 “soon” 

LET s = stl 

PRINT AT y, x3 "“aoaa"3 AT ytl, x3 


“eaaa"§ ATO, OF + IF 5S < S THEN 
GO TO 250 
1220 IF s = 5 THEN GO TO 1500 


1300 PRINT AT v, g+1; " GRA O GRA R GRA S"; OVER 15 


AT v, «+13 " GRA T GRE U" + FOR i = 1 TO 11 


BEEP .1, —-10 = PRINT OVER 13 AT v, 93 
". GBS © GRE R GRE S" = BEEP .02, 4 + 

PAUSE 50 

cis 

RUN 220 

1400 PRINT AT yy x3 “soon 

"naaa"s AT 0, 05 
1410 IF ABS (x-g) > 1 THEN GO TO 250 


AT y+l, «5 


1420 PRINT AT v, gt13 “ EXIT SHJ 2 GR O GRA R 
abl o 


GRA S"; OVER 13 AT y+1, x5 " EXIT 

G@B6 G EXIT SHJ 1 GRE C GRE D Exl Sul 

GRE H"5 AT y+2, x3 “ EXT SHi 1 GAS I 

FOR i = 1 TO 11 = 
BEEP .1, -10 = PRINT OVER 13 AT v, a3 
" GXT SHI . GRA @ GRE R GRA S" = 
BEEP .02, 3 = NEXT i 

1430 PAUSE 50 

1440 RUN 100 

1500 PRINT AT 5, 03 "Congratulations.—.you.shave 
aoeae.destroyed.thesentire.enemy 
afleet" 

1510 BEEP .3, 1 = BEEP .05, 0 = BEEP .0S, -1 
BEEP .5, 9 ? BEEP .05, 0 = BEEP .05, 
BEEP .6, 1 + BEEP .5, 10 

1520 PRINT FLASH 13 PAPER 23 INK 73 AT 10, 03 
“WATCH.OUT .—.HERE . THEY .COME .AGAIN" 

1530 FOR i = 1 TO 3 = BEEP 1, 20 + BEEP .1, 0 = 
NEXT i 

1540 RUN 100 
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NEXT i 


Spectrum Invaders 


Copyright (c) by Beam Software 


1t's hard to believe, but the all-time favourite arcade 
game, the one that started the whole concept of arcade games, 
and is still one of the most popular around the world is 
available right here on your Spectrum. 


This version of Spectrum Invaders features 
# 24 invaders moving from side to side 
animated invaders - watch them move! 
shields to hide behind 
dangerous enemy bombs 
laser fire power 
continuous score update 
sound effects 
increasing difficulty with each wave 


ae 


ee 


ane 


To play the program, use the "'X" and "C" keys to move the 
laser base left and right, and the "M" key to fire your 
missile. 


It is your responsibility to defend the planet, earthling 


Programming considerations 


One of the problems with trying to write a BASIC program 
for this type of arcade game are the very high number of 
variables required, together with the demands of fast action. 


It would net be possible to write a BASIC program of this 
type, keeping track of 27 pairs of variables (x,y coordinates 
of 24 invaders, laser base, enemy bomb and laser blast) and 
still have a reasonable arcade game. It would be doubly 
diffigult to have them animated as well, and to keep track of 
which invader had been hit, for example. 


This program makes use of two features of the Spectrum, 
which together make this amazing program possible: 
* Printing a very long string is not much 
slower than printing a shorter string. 
It is certainly much faster than printing 
a number of strings. 
* It is possible to use the unique string slicing 
facility on the Spectrum to assign part of a 
string. ie one can say, for example: 
LET a$ (2 TO 6) = "HELLO" 


The core of the program therefore lies in two strings, and 
the manipulation of these two strings, a$ and b$. the string 
a$ is used to keep all 24 invaders, print them, etc. For all 
intents and purposes, b$ is the same as a$, in that it will 
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always be the same length as a$, have as many invaders in it, 
etc., but b$ contains the same invaders in a slightly 
different posture. By alternating rapidly between a$ and b$, 
the invaders appear to move their arms in and out, move their 
legs, and so on. 


By printing a$ (and b$) in various positions, we can print 
in one hit all the invaders, and automatically take care of 
the undrawing problems (as the new printing will overwrite 
the old positions). 


Should an invader get hit by a laser blast, the invader is 
replaced by blanks within the string using the string slicing 
technique described above. Regularly as well, the end of the 
string is checked to see if contains all blanks (ie all 
invaders in the bottom row have been killed). If that is the 
case, string slicing is used again to shorten the string to 
its new maximum length. 


This not only prevents any potential problems with printing 
beyond the bottom of the screen, but give an immediate test 
as to whether the laser base has been overrun. A small 
by-product is that as the string gets smaller, it takes less 
time to print and the game speeds up a little towards the 
end! 


Program structur; 


100 -160 Define graphic characters 


200 -625 Initialisation 
The main task is to build up a$ and b$ 
using subroutine at 9000 ~ 9030 


1000 


1200 First part of main loop 
a$ is printed, laser blast is updated 
laser base position unpdated if required 
enemy bomb position updated 


2000 - 2999 Second part of main loop 
same as first part but with b$ 


also new enemy bomb creation 


3000 - 3530 Change of direction for invaders 
a$ checked for possible slicing 


5000 - 5220 Effect of laser blast hit 


6000 


6530 Effect of enemy bomb hit 


8500 


8550 End of game 


65 


INVADERS 


100 DATA Q, 31, 63, 63, 123, 113, 225, 225, 0, 248, 
252, 252, 222, 142, 135, 135, 255, 127, 114, 
111, 199, 192, 240, 240, 255, 254, 246, 246, 
227, 3, 15, 15 

110 DATA 7, 63, 127, 65, 193, 199, 255, 124, 224, 
252, 254, 131, 131, 227, 254, 62, 124, 127, 
Sl, 48, 112, 88, 136, 248, 254, 204, 142, 26, 
17, 31, 0, 0 

120 DATA 31, &: 63, 115, 113, 225, 225, 255, 248, 
252, 252, 204, 142, 135, 135, 255, 127, 111, 
103, 103, 96, 48, 60, 60, 254, 246, 230, 230, 
6, 12, 60, 60 

130 DATA 7, 63, 127, 193, 193, 199, 127, 124, 224, 
252, 254, 130, 131, 227, 255, 62, 127, S1, 
113, 88, 134, 248, 0, 0, 62, 254, 204, 12, 14, 
26, 17, 31 

140 DATA 24, 24, 24, 24, 60, 126, 231, 231, 7, 31, 
63, 60, 112, 112, 248, 248, 224, 248, 252, 60, 
14, 14, 31, 31 

150 DATA 18, 26, 14, 14, 7, 3, 1, 0, 36, 44, S6, 56, 
112, 96, 192, 128 

160 FOR i = USR "a" TO USR "a"+167 + READ x = 
POKE i, x + NEXT i 

200 BORDER 7 = PAPER 7 = INK 9 = CLS 

210 PRINT AT 0, 03 “score"; AT O, 233 “lives.~*°" 

220 LET # = 2 

230 LET sc 

250 LET q = LET # = ##1 ¢ IF # = 11 THEN STOP 

300 LET c¥® nanan ssn sssnsacce 


310 LET s = 144 
320 GO SUB 9000 
S30 LET k® = a¢+b$+c$ 
340 GO SUB 9000 
350 LET 1% = at+b$+cs 
360 GO SUB 7000 
370 LET m& = at+b$+c$ 
380 60 SUB 9000 


LET n& = astb$+c# 
LET aS = k#+1$+k$+41$ = LET a% = a$( TO 343) 
LET b$ = m$tn$+m$+n$ + LET b% = b&#( TO 343) 
LET k® = " GRe 4 GRE SHI 4 GRE 
Gas 7 GBS SHI 7..." = 
LET 1$ = " GR SHI 6 GRE SHI 6 GRA 
GRA 6 GRB 6..." : 
LET m@ = " GRE 7 GRS 2. GRS 1 


GRA SHI 4..." = LET ne = "" 
KS} KGS KS ko; 165 195 
me 


510 


mes mds 
590 
600 
410 
415 


LeTt =1 
LET x = 0 = LETy =0 
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620 
625 
1000 
1010 


1020 
1035, 
1040 


1050 


1060 
1070 
1100 
1110 
1115 
1120 


1200 
2010 


2020 
2035 
2040 


2050 


2060 
2970 
2100 
2110 


2120 


2125 
2130 
2200 
2210 
2999 
3600 
3010 
3020 
3500 
3505 
3510 


3520 
3525 
3530 


PRINT AT 20, 303 c# 

LET bi) = 3 

FOR p =r TO s STEP t 

BEEP .005, 1 PRINT AT q, 93 c#( TO p)s ats 
AT 20, L3 - GBB O 
aeseeeee GRO R GHA 3 GRA S." 

IF u <q THEN GO TO 1050 

IF SCREENS (u, v) <> “.“ THEN GO SUB 5000 

IF u >= q THEN PRINT AT u, v3 " GBB O"5 
aT uti, ve "a" 

LET L = L+(L < 28)%( INKEY# = “e")—(L > 0) 
4 INKEY$ = "2") 

IF u > q-1 OR INKEY# <> “m" THEN GO TO 1100 

LET u = 20 = LET v =L+1 

IF d > 20 THEN GO TO 1200 

IF SCREENS (d, ©) <> "4" THEN GO SUB 6000 

IF SCREEN@ (d, e+1) <> "." THEN GO SUB 6000 

IF d <= 20 THEN PRINT AT d-1, @3 “a."3 INK 25 
aT d, es " GRE T GRA U" 

LET u = u-1 

PRINT AT q, 03 c#( TO p)$ bs; AT 20, LZ 


2 GRO Oissacsnacranccnas 
GB6 R GRA 3 GRA S." 

IF u <q THEN GO TO 2050 

IF SCREENS (u, v) <> "4" THEN GO SUB 5000 

IF u >= q THEN PRINT AT u, v3 “ GBB O"F 
AT ut1, ve "4" 

LET L = L+(L < 28)8¢ INKEY® = 
*( INKEY$ = "“z") 

IF u > q-1 OR INKEY® <> “m" THEN GO TO 2100 

LET u = 20 = LET v =L+1 

IF d <= 20 THEN GO TO 2130 

LET w INT (6% RND ) 
LET x$ = a$( LEN a$—4%w-2) = 
IF x$ <>" GRA C” AND x <>" GRA G" THEN 
GO TO 2130 

LET d = q+i+ INT ( LEN a$/32) = 

“LET © = p-4%w+20+t 

IF e = 31 THEN LET e = 30 


"y-(L > a) 


IF d = 20 THEN PRINT AT 20, 2&5 "1." 
LET u = u-t 

LET d = d+1 

NEXT p 

IF t = -1 THEN GO TO 3500 

LET t =-) © LET r = 9 4 LET s = 0 
GO TO 1000 


IF LEN a® > 5S THEN GO TO 3510 
IF a$(23 TO ) c% THEN GO TO 250 
IF a#( LEN a$-32 TO ) = c# THEN 
LET a$ = a$( TO LEN a$-96) = 
LET b*® = bS( TO LEN a) 
IF 32%q+ LEN at > 609 THEN GO TO 8500 
LET r =O 2 LETs = 10 = LETt =1 
PRINT AT q, 03 c# = LET q = gti = GO TO 1000 


5000 
5005 
5010 
5015 
5020 
5030 
5040 
5050 
5060 
5100 
S110 


5120 
5130 
5200 
5205 
5210 
5220 
6000 
6005 
6010 


6012 


6015 
6020 


6030 


6040 
6050 


6060 
6500 
6510 


6520 
6530 
8500 
g510 


8520 
85350 
8540 
550 
9000 


7010 


9020 
9030 


IF ATTR (u, v) = 60 THEN GO TO 5100 
IF ATTR (u, v) = 58 THEN GO TO 6000 
LET h = v-p+32%(u-q-1) 
BEEP .05, 8 
IF h © THEN GO SUB 5200 
LET h+32 = IF h < LEN a® THEN GO SUB 5200 
LET h+32 = IF h < LEN a THEN GO SUB 5200 
LET 4— INT (h/96) 
LET sc = sc+100#h = PRINT AT 0, 63 sc 
REM create.an explosion 
PRINT INK 63 AT u, v3 “ GRE B GRA AN; 
AT u+1, v3 “ GRA S GRE R“ + BEEP .OS, 10 = 
PRINT AT u, v3" AT utd, v3 "44" 
LETu=0 
RETURN 
IF h = 0 THEN LET h = 1 


LET a$(h TO h+2) = "1.4" 
LET b$(h TO h+2) = "Lau" 
RETURN 


REM look .where alien bullet .hit 

IF d = 20 THEN GO TO 6018 

PRINT AT d-1, e©3 "3 INK 23 AT d, e3 
“ GRe A GRA BY = BEEP .05, -10 = 
PRINT AT dy e3 “44” 

IF (vy = e OR v = e+1) AND d = u THEN 
PRINT AT u, v3 "4"5 AT uti, v5 
LETu=0 

LET d = 21 = RETURN 

PRINT AT d-1, e3 “.s4"3 INK 23 AT d, @3 
" GRE A GRA B BEEP .05, 10 = 
PRINT AT d, eF "1." 

FOR k = 1 TO 10 = PRINT OVER 13 AT 21, L5 
“ GRE R GRE 3 GR S“ = BEEP .1, 0 + NEXT k 

LET Li = Li-1 

PRINT AT 0, 293 "sa. 
Cheeaca Tesi pe eft 

IF Li = 0 THEN GO TO aSs1o 

REM missiles hit .each ,other 

,IF d <= 20 THEN PRINT INK 63 AT d, e3 
“ GRS B GRA A"; AT d+1, e3 GBS S GR R" 
BEEP .05, 10 = PRINT AT d, e3 “ 


AT O, 295 


AT d+1, beer 

LET u=0% LET d = 21 

RETURN 

PRINT AT q, 03 c#3 at 

PRINT AT 5, 03 “..The.aliens.shavesoverrun 
ayou." = PRINT “..All.isslost. 

INPUT "Do.you.want .to.trysagain?"; n& 


IF LEN n# = © THEN GO TO 8520 
IF n$(1) "y" OR n$(1) = "¥" THEN RUN 200 
STOP 


LET a$ = CHR$ (s)+ CHRS (s+1)+".." = 
LET a& = at+a$t+a$ta$ta$+a$+" 1.1.4" 

LET b% = CHR$ (s+2)+ CHR® (s#3)4".4" = 
LET bS = b$+b$+b$+bs+bs+b$+" 000" 

LET 5s = s+4q 

RETURN 
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Copyright (c) by Beam Software 


METEOR STORM places you at the controls of a space craft 
hurtling through the asteroid belt. On your display you see 
the pleasant view of the solar system as seen from mid space. 


In the distance, you can see Saturn with its rings, and 
beyond that the many stars of nearby galaxies. 


Suddenly command control warns you of a METEOR STORM! 
Before your very eyes, you see a meteor growing in size as it 
heads directly for your ship! To confirm the desparate 
situation, your on-board radar shows the approach of the 
asteroid. 


METEOR STORM is 3-Dimensional computer gaming at its most 
exciting. 


Running the program: 


After you press (RUN) (ENTER), you will see the familiar 
console display come to life. 


A cross hair in the middle of the screen marks the 
direction your laser beam is aimed at. To manipulate the 
beam, use the following controls: 

"I" and "P" to move left or right 

vw" and "X" to move up and down 

"Oo" to fire 

Note that as with most BASIC programs, only one key can be 

pressed at a time. 


The cross hair control features full wrap-around - in other 
words, going too far to the right will bring you to the left 
of thg screen, and so on. 


You can fire at any time, but missing the asteroid results 
only in the dull sound of the laser hurtling into the void. A 
hit on any part of the asteroid however will see it being 
thrown back beyond danger. 


As you penetrate deeper into the METEOR STORM, they star 
coming at you faster and faster. How many can you shoot with 
only three lives? 


Programming considerations: 


This program makes extensive use of the OVER facility of 
the Spectrum, as well as demonstrating the re-useability of 
the user defined graphics characters. 
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At the beginning of the program, user defined graphics are 
used to draw the shape of the spaceship console, the radar 
display ship and the planet Saturn. This is the only time in 
the entire program they are drawn! In fact, immediately 
afterwards, the user defined graphics characters which made 
up the picture are re-used to define the asteroid shapes! 


This works because the display on the screen is not 
dependent on those characters ~ once anything is written onto 
the screen memory, by whatever means, it will stay there 
until something overwrites it. 


The immense advantage of the OVER facility now becomes 
obvious. By keeping very clear controls on what has been 
written, and making sure to erase it only by overwriting 
exactly the same thing at the same spot again, we can keep 
all the original information on the screen in its original 
format. 


(The way OVER works is that by writing the same thing OVER 
a second time, it will become erased, leaving whatever was 
underneath it originally intact ~ try it!) 


Structure of the program: 


100 - 200 Definition of characters, as follows: 
Round corners 
Spaceship as seen on radar 
Saturn 
Shapes for small meteors I (ABCD) 
Shapes for small meteors II (EFG) 
Shapes for meteors IIT (HIJK) 
Shapes for meteors 1V (LM) 
Shape for explosion I (NOP) 
Shape for explosion IT (QRS) 


200 340 Set up console screen 


400 - 590 Define characters again and 
initialisation. Flash message 
The main time consuming task is taken 
up with defining b$, an array with random 
meteor shape used in final collision 
explosion display. 
Useful variables are: 


sy position of crosshair 

ox, oy old position of crosshair 
li number of lives 

ms meteor stage (range 0 ~ 9) 
di difficulty level 

mx, my position of meteor 

v ink colour under crosshair 


900 - 1100 Main loop 
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Test keyboard, move crosshair 
1200 - 1500 Laser blast 
3000 — 3100 Subroutine to update radar 


4000 - 4880 Subroutines to print meteor in various 


5000 ~ end = Routine to handle collision with meteor 


Special note 


The extensive use of DATA statements that this program 
makes is very expensive on memory, and this program would not 
fit within a 16K Spectrum if we did not take special steps to 
reduce the memory usage of this program. 


For example, each number in a DATA statement is stored in 
memory not only as the characters you type in but ALSO as a 
6-byte sequence which is in a format suitable for the 
Spectrum ROM to operate. In other words, a DATA string with 
32 numbers takes up 6 bytes for the line number, etc 
information, about 100 bytes for the characters typed in, and 
a further 200 bytes because of the way the computer stores 
this information. 


This 6 byte cost of entering numbers is present in all 
BASIC statements, not just DATA statements. You will 
therefore note that this program defines the two most 
commonly used numbers, O and 1, right at the beginning as 
variables, and these are used throughout tie program. 


The saving in memory is enormous ~ each number now only 
requires two bytes, including the comma separating numbers. 


METEOR 


90 LET 2 = 0+ LETUu=1 

100 DATA 255, 248, 224, 192, 192, 128, 128, 128, 
255, 31, 7, 3, Sy uy Us uy 128, 128, 128, 
192, 192, 224, 248, 255, u, u, u, 3, 3, 7, 31, 
255 

110 DATA z, z, 128, 192, 231, 255, 255, 255, z, 2, 
Zp. 25 172, 240, 60, 255s, Uy Ss Fy 14, Zs. By 
Zs 2, 240, 224, 128, z, z, z, z, 2 

120 DATA z, 3, 7, 15, 15, 31, 31, 127, z, 192, 240, 
248, 248, 254, 253, 249, 127, 220, 192, 115, 
31, 7, 3, 2, 195, 4, 60, 248, 248, 240, 192, z 

ASOUDATA 25. 25. Uy: Sy. Zn Ts, Ve 2s Za 4s, Bs 15, Sh, 
31, 63, 14, z, 4, 14, S31, 63, 63, 63, 31, 30, 
30; 26, 125 25 2p zy 2 

140 DATA 31, Siig 155)Bp. Zs) 25) Be 2p. EH Ze 
128, 192, 224, 224, 224, 224, 224, 192, z, 25 
Zz, 2 

150 DATA 3, 23, 55, 63, 127, 127, 127, 127, 128, 
224, 240, 240, 224, 248, 248, 252, 127, 63, 
43, 127, 63; 51, 115, 2, 252, 252, 248, 224, 
240, 224, 128, z 

160 DATA 63, 127, 255, 127, 255, 255, 127, 63, 252, 
248, 252, 254, 254, 248, 248, 252 

170 DATA 195, 153, 60, 102, 102, 60, 153, 195, 195, 
99, 39, 60, 60, 180, 231, 231, 128, 60, 230, 
255, 91, 200, 221, 119 

180 DATA 38, 62, 246, 254, 108, 71, 227, 62, 115, 

55, 246, 180, 28, 188, 244, 99, 221, 118, 
103, 238, 184, 115, 255, 128 
BORDER 5 = INK 5 = PAPER & = CLS 
RESTORE 100 


FOR i USK "a" TO USR " 

READ x = POKE i, x * NEXT 1 

DIM s(10) 

PRINT AT z, a 

AT 18, 73 " GRA 

310 PRINT 

““ GRE SHI 8 GRE SHI 8 8 GRA SHI 
GRS SHI 8 Ga a 8 
GRE SHI 8 GRE a 
GRa SHI 8 GRe 8 
GRA SHI 8 GHA a 
GRE SHI 8 Gea 8 
GRe SHI 8 GRE 8 
GRe SHI 8 GAS 8" 


> PRINT “ GRE SHJ 8 GRE A... 
aes... GRA B GRE SHI B 

GBS Sui 8 GRS SHI & GRE SHI 8 GAA A 
aeeeaes GRO B GRE SHI 8 

GRE SHI 8 GARB Cis.s.ssae 
wesc. GRA D GRH SHI 8 

GR6 SHI 8 GRE SHI 8 GRE SHI 8 GRA C 
aaeeeee GBH D GRS SHI 8" 


1060 
1070 


1090 
1100 
1200 
1250 
1260 
1270 
1275 


PRINT INK z3 AT 20, 2; “ GRA E GRE F"5 
aT 21, 2; " GRA G GRA H"; AT 21, 235 
“lives.3" 

FOR i = u TO 20 + PRINT INK 23 
AT ut16% RND , u+29* RND 3 “2” NEXT i 

PRINT INK 33 AT 6, 10; “ GRA I GRE J"5 
AT 7, 103; " GRA K GRB L" 

FOR i = USR " TO USK "t 

READ x = POKE i, x = NEXT i 

PRINT OVER u3 FLASH INK 23 AT 10, 43 
“PREPARE .FOR FLIGHT .INTO" 3 AT 11, 105 
"METEOR .STORM* 


LET bS = “" = FOR 3 = u TO 17 
BEEP .05, 2 

LET at ae 

FOR i u TO 15 

IF RND > .6 THEN 


LET af = a$+ CHR® (144+12% RND 
LET a = a$+"." 
BEEP .005, 10 
NEXT 1 
LET b% = b#+as( TO 29)4"." = NEXT 3 
PRINT OVER u3 FLASH 23 AT 10, 45 
“PREPARE .FOR FLIGHT JINTO" 3 AT 11, 105 


“METEOR .STORM" 

LET ox = 9 = LET oy = 15 = LET ov=5 
LET x =9 2 LET y = LET v= 7 

INK z = PRINT AT x, 

LET 3: LET di =u * LET nm =z 

LET Zz? LET nm = nmtu 

LET mx = ut RND #17 = LET my = u+ RND #29 
LET mi =u 

LET a$ = INKEYS 


LET ms = ms+di/7+nm/50 

IF INT ms = 9 THEN GO TO S000 

GO SUB 3000 

GO SUB 4000+100% INT ms 

LET w = ATTR (x, y)-B8% INT ( ATTR (x, y)/8) = 
IF w <> © THEN LET v = w 

IF af = "" OR af = "O" THEN GO TO 1070 

LET y = oy+(as = "p")—(at = "i") 

IF y <u THEN LET y = 30 

IF y > 20 THEN LET y =u 

LET x = ox+(a$ = "x")-(ae = “W") 

IF x < u THEN LET x = 17 

IF x > 17 THEN LET x =u 

LET v = ATTR (:, y)-8% INT ( ATTR (x, y)/8 

PRINT OVER us INK ov} AT ox, oys “#"3 INK 23 
AT xs ys tee 

LET ox = x = LET oy = y = LET ov =v 

IF a% <> "O" THEN GO TO 9700 

FOR i = u TO 6 = BEEP i8i/100, 10/i = NEXT i 

IF vy <> u THEN GO TO 700 

LET x1 = x-u = IF x1 < 2 THEN LET x1 

LET yl = y-u = IF yl < 2 THEN LET yl 

LET x2 = x+u = IF x2 > 18 THEN LET x2 = 18 


wo 
N 
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1280 


1290 
1500 
1310 
1320 
1340 
1360 
1370 


1380 


1500 
3000 


3010 


3020 


3030 


2040 
4000 
4010 
4020 
4030 
4100 
4110 
4120 
4130 
4200 
4210 


4220 
4230 
4300 
4310 
4320 


4330 
4340 
4400 
4410 


4420 
44350 
4500 
4510 


4520 
4530 
4600 
4610 


OVER u = FOR i =u TO 10 = BEEP .03, 3 = 
PRINT AT x, ys " GRA N" = BEEP .O1, u = 
PRINT AT x1, yl; " GBB O GRA P GRA O" 
AT x, yls " GRA @ GRA N GRA OY; AT x2, yI5 
“ GRE R GRE S GRE R" = NEXT i = OVER z 

DIM s(10) = LET mi = 2 

FOR i = INT ms TO z STEP -u 

LET ms = i = GO SUB 4000+100%i = GO SUB 3000 

NEXT i 

DIM 5(10) 

LET ov =z = LET Vv =z 

PRINT INK 23 OVER z3 AT 20, 233 nm+Li-33 
AT 20, 263 “shot” 


PRINT OVER uj INK 35 AT 6, 103 “.a"G 
AT 7, 105 “aa” 

60 TO 560 

IF INT ms < 4 THEN PRINT INK uj AT 20, 14-msj 
“. GBA B." 

IF INT ms = 4 THEN PRINT INK u3 AT 20, 95 
“.. GBA B.." 


IF INT ms > 4 AND INT ms < 8 THEN PRINT INK 3 
AT 20, 18-2" INT ms3; “1. GBH Bi.” 


IF INT ms = 8 THEN PRINT INK us AT 20, 43 
" GRS B.." 

RETURN 

IF s(1) = u THEN RETURN 


PRINT OVER us INK mi3 AT mx, mys; " GRA A" 
LET s(t) =u 
RETURN 
IF s(2) = u THEN RETURN 
PRINT OVER u3 INK mi3 AT mx, my; " GRA B" 
LET s(2) =u 
RETURN 
IF s(3) =u THEN RETURN 
PRINT QVER us INK miz AT mx, my$ 
“ GRe B GRA F" 
LET s(S) =u 
RETURN 
IF s(4) = u THEN RETURN 
“LET mx = mxtu 
PRINT OVER us INK mis AT mx, mys 
“ @Re B GRAF"; AT m4, my} " GRA D" 
LET s(4) =u 
RETURN 
IF s(S) = u THEN RETURN 
PRINT OVER uj INK mis AT mx, mys “ GRA C5 
AT m4, my3 “ GRA E" 
LET s(S) =u 
RETURN 
IF s(6) = u THEN RETURN 
PRINT OVER us INK miz3 AT mx, mys 
”“ GRe C GRA F"3 AT m4, my? 
LET s(4) =u 
RETURN 
IF s(7) = u THEN RETURN 
PRINT OVER uj INK mis AT mx, mys 


gga — Gas 6G" 
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“ GRE H GRE I"; AT m4, my; " GRA J GRA K" 
4620 LET s(7) =u 
4630 RETURN 
4700 IF s(8) 
4710 LET mx2 = mx-u 
4720 LET my& = my+2 
4730 LET mS = mx+2 
4740 LET my3 = my-u 
4750 PRINT OVER uj INK mi3 AT mx2, my; “ GRE C GRE F” 
3 AT mx, myS3 " GRE C GRE SHI 8 GRA SHI 8" 
3 AT mx, mys my3s 
“ GRe © Ge AT mx4, myS3 
“ GRA 6"; AT mS, my; " GRE E GRA 6" 
4760 LET s(8) = 
4770 RETURN 
4800 IF 5(9) RETURN 
4810 LET mx1 mxi << z THEN LET mx1 
4820 LET my2 my < z THEN LET my z 


u THEN RETURN 


IF myé > 31 THEN LET myé 
IF mxS > 18 THEN LET mS = 18 


z 


4830 LET my7 my7 > 31 THEN LET my7 = 31 * 
4840 LET mx6 mxé > 18 THEN LET mxé = 18 
4850 LET mxé m6 > 18 THEN LET mxé = 18 


4860 PRINT OVER us INK mis AT mx1, mys 
” GRE C GRA F"3 AT m2, my33 
“GRA H GRA SHI 8 GRA SHI 8"; AT m2, myos 
“ GRA I"; AT mx, my23 " GRA C"} AT mx, my 
“ GRE SHI 8 GRA SHI 6 GRA SHI 8"; 
AT mx, mys 
“GRE SHI 8"; AT m, my73 " GRA F"S 
AT m4, my23 " GRA EN; AT mx4, my35 
" GB6 SHI 8 GRE SHI 6 GRA SHI 8"5 
AT mx4, myds 
“ GRe SHI 8"; AT m4, my73 “ GRA G'S 
AT m5, my Ghe J GRe SHI 8 GRA SHI 8"; 
AT m5, my63 “ GRA KS AT mx6, mys 
“ GRA E GRA 6" 
4870 LET 5(9) =u 
4880 RETURN 
S000 FOR i = z TO 16 
5010 PRINT OVER us FLASH us AT itu, us 
b$(SO#itu TO 30xi+50) 
5020 NEXT i 
‘SO30 PRINT FLASH uj OVER us AT 20, 13 


V 22; 15 “seseeredeeeseaeae™ 


5400 DIM s(10) 

5500 FOR i = u TO 40 = BEEP RND /10, 10% RND -5 

5510 IF i > 31 THEN GO SUB 8000-10081 

5520 NEXT i 

5530 LET ov = 4: LET V =4 

6000 FOR i = z TO 16 

6010 PRINT OVER us INK 23 FLASH 23 AT itl, 13 
bS(SO#i+1 TO 308i +350) 

6020 NEXT i 

6030 PRINT FLASH z3 INK S53 OVER 13 AT 20, 13 
“, GST SHI O......ssssae 
aes EST SHI 5."5 AT 21, 13 ". EXT SHI 0 


6035 
6040 
6050 
6060 
4070 
6200 


Bsl SHI S. GxI SHi 0” 
PRINT OVER us AT 20, 45 " GRE B" 
LET Li = Li-u 
PRINT OVER z3 INK z3 AT 21, 293 Li 
IF Li = 2 THEN STOP 
DIM s(10) 
6O TO 560 
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Copyright (c) by Beam Software 


You are the protector and defender of the humanoids on the 
surface of the planetoid. Your task is to ELIMINATE the 
invaders. 


You must prevent at all costs their attempts to kidnap the 
humanoids under your care. Their survival and the survival of 
their planetoid depends on you. 


The planetoid you are guarding is only a small one, and it 
is possible to fly right around it very quickly, but you can 
travel only in one direction. 


The enemy kidnappers have released a heat-seeking missile 
against you, in order to distract your attention away from 
the real issue. Can you perform evasive action, shoot down 
the invaders and protect the humanoids? 


Playing the game 


You are in control of the space craft in the centre of the 
screen. Your forward momentum does not allow you any 
flexibility in moving sideways. 


Your only controls are therefore up and down, using the "Ww" 
and "X" keys. 


You have at your disposal a laser blaster, controlled by 
pressing the "P" key, which will destroy the heat seeking 
missiles and kidnapping invaders, but it only brings 
temporary relief. As soon as you shoot one, the next one 
appears. 


Your craft can sustain some damage, but after three hits, 
your craft is no longer operative. 


Programming considerations: 


There are no available commands in BASIC in order to simulate 
the movement of the spacecraft against the surface of the 
planet. 

Even if there were suitable commands (such as SCREEN$; note 
that this cannot be used as it does not recognise user 
defined graphics!!), horizontal scrolling of the screen would 
be painfully slow. 


The only solution available, and the one that is used here, 


is to have the horizontal scrolling routine written in 
machine language. You will find this routine, 36 bytes Long 


7 


in the DATA statement at line 3000. 


What this routine does is to take each line of the screen, 
and wrap it around. ie, the character that was at 0,1 will go 
to 0,0, the character that was at 0,0 will go to 0,31, and so 
on. 


The routine then does the same thing for the attributes, so 
that the colour associated with each shape moves with it. 


This machine language routine is fully relocatable - in 
other words, you don't need to know anything about machine 
language to use it, Simply use a program similar to that in 
lines 140 and 150. Because this routine is fully relocatable, 
you can specify any address that will not be overwritten as 
the address it should be POKEd into. 


You may be interested in trying to adapt this routine for 
other programs. You can be sure that Melbourne House is 
always keen to see any exciting programs you may develop. 


The rest of the program is mainly taken up with keeping 
track of the variables relating to the spaceship (sx,sy), 
alien (ax,ay) and bomb (bx,by). Because of the continuous 
scrolling this is quite time consuming, but essential. 


Structure of the program: 


100 = 150 Initialise variables, character set 
160 - 360 Draw landscape, fit in men on towers 
1000 - 1020 Draw ship, alien, bomb 
5000 - 5360 Main loop 
Check for ship movement 
. Make alien seek humanoids 


Make bomb head for ship 
Fire laser if key pressed 
Check for possible collisions 


7000 - 7330 Kidnap loop 
Check if any humans left, ete 


8500 ~ 8760 Damage to ship routine 
including end of program 
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ELIMINATOR 


100 
110 
120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
320 
330 


340 
350 
360 
1000 


RESTORE 2000 

FOR i = USR " TO USR 

READ x = POKE i, x 

NEXT i 

RESTORE 3000 = CLEAR 32500 

FOR i = 32500 TO 32535 + READ x + POKE i, x 
2 NEXT i 

BORDER 1 = PAPER 1 = INK O = CLS 

PLOT 0, 8 

LeT y = 8 

LET p = -1 

FOR j = 1703 

LET a = 3+ INT (7*# RND ) 

GO SUB 8100 

DRAW 4, 15-y = DRAW 8B, O 

LET y = 15 

LET p = ptati 

FOR k = 1 TO INT (4% RND )+1 = PRINT INK 53 


AT 20-k, p3 " GRA CY = 
PRINT INK 33 AT 20-k, p3 

B"; AT 19-k, ps3 “ GRE A" 

LET a = 30-p 

GO SUB 8100 

DRAW 11, 8-y 

LET sx = 3 = LET sy = 10 

LET ax = INT (15% RND ) = LET ay = 26 

LET bx = INT ( RND #15) = LET by = 30 = 

IF bx = ax THEN GO TO 330 

LeTt =0 

LET e = 0+ LETH =3 

LET dm = 0 = LET sc = 0 

PRINT INK 13 AT sx, sys “. GRA F 


G86 G GBB H GRE I” 


1010 PRINT INK 43 AT ax, ay; “. GBA D GRA E” 

1020 PRINT INK 23 AT bx, by; “. GRA J" 

2000,, DATA 1, 57, 189, 187, 146, 254, 124, 124, 
56, 56, 56, 104, 76, 68, 68, 198 
2 REM shape.of humanoids 

2010 DATA 126, 36, 60, 24, 60, 102, 195, 255 
= REM shape.of .platform 

2020 DATA 43, 99, 193, 193, 127, 28, 7, 3, 252, 198, 
131, 131, 254, 56, 224, 192 
2 REM shape.of .aliens 

2030 DATA 255, 63, 15, 7, 3, 7, 255, 0, 192, 240, 
252, 255, 255, 255, 240, 3, 0, 0, 31, 249, 
224, 255, 252, 240, 0, 0, 0, 192, 248, 255, 
0, 0 = REM space.ship shape 

2040 DATA 28, 28, 244, 199, 227, 47, 56, 56 

3000 DATA 33, 1, 64, 17, 0, 64, 26, 1, 31, 0, 237, 
176, 18, 35, 19, 62, 88, 188, 32, 242, 6, 
22, 197, 26, 1, 31, 0, 237, 176, 18, 35, 
19, 193, 16, 243, 201 

5000 LET v = USR 32500 
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5010 LET x# 
5020 LET nx = sx+(x$ = "x")R(sx < 18) — 
(xe = "W"DK(sx > 0) 
5030 IF nx = sx THEN GO TO 5060 
5040 LET v$ = SCREENS (nx, sy+i) = LET we = 
SCREENS (nx, sy+2) = LET x# = 
SCREENS (nx, sy+3) ¢ LET v® = vStwo+xs 
S050 IF v$ <> "1.4." THEN GO TO 8500 
5060 IF SCREENS (nx, sy+4) <> "4" THEN GO TO 8500 
5070 PRINT OVER 13 AT sx, sy-1;3 ". GRA F 
GBA G GBB H GRA I"3 AT nx, sys 
" GSI SHI 6. GRE F GES G 
GBS 4 GR6 I" EXIT SHI Oo 
S080 LET sx = nx 
5090 LET by = by-! + IF by < 0 THEN LET by = 31 
5100 IF RND > .7 OR by = 31 THEN GO TO S140 
5110 LET nx = bx+(sx-1 > bx)—(sx-1 < bx) +(by = sy+2) 
5120 PRINT OVER 13 AT bx, by; “. GRA J"5 
AT nx, by} “ EST SHI 2. GRE J" 
5130 LET bx = nx 
5140 IF bx = sx AND ABS (by-sy-1) <= 1 THEN 
GO TO 8500 
5200 IF x# <> "p" THEN GO TO 5290 
5210 BEEP .1, 4 
5220 PLOT INK 3 
5230 DRAW INK 3 
5240 BEEP .1, 8 
° 
° 


INKEY$ 


3 OVER 13 8%sy+43, 170-8%sx 
3 OVER 13 212-8%sy, 0 


5250 PLOT INK OVER 15 8sy+43, 170-8%sx 
5260 DRAW INK OVER 13 212-8%sy, 0 
5270 IF ax = sx AND ay > sy+4 AND ay < SO THEN 
FOR k = 1 10 11 = BEEP .1, 5 + 
PRINT OVER 13 AT ax, ay- 
“. GRe D GRe EY = NEXT k = 
LET ax = INT (15% RND ) = LET ay = 29 = 
PRINT AT ax, ay-13 " EXI SHI 4. Ge D 
GBS E" EXT SHI 0 = LET sc = sc+100 
5280 IF bx = sx AND by > sy+4 AND by < 30 THEN 
FOR k = 1 TO 5 + BEEP .1, 10 = 
« PRINT OVER 13 AT bx, bys " EXI SHI 2 
« GRA J" = NEXT k = LET bx = 
1+ INT ( RND #14) = LET by = 30 = 
PRINT AT bx, bys “ EXI SHI 2 
« GB6 J“ EXT SHI © = LET se = sct20 
5290 LET ay = ay-1 = IF ay < 0 THEN LET ay = 31 
S500 IF RND > .7 OR ay >= 29 THEN GO TO S000 
S310 LET nx = ax+(ax < 18)-t = IF ax = 18 THEN 
GO TO 5350 
5320 LET v$ = SCREENS (nx, ay+1) = 
LET w% = SCREEN® (nx, ay+2) = 
IF v$twe <> ".." THEN GO TO 7000 
5330 LET ny = ay+(ax = 18) 
5340 IF ny <> ay AND SCREENS (nx, ny+2) <> "4" 
THEN GO TO 7000 
5350 PRINT OVER 13 AT ax, ay; "4. GRA D GRA E"5 
AT ox, ny3 " ExT SHI 4. GRE D 
Gas —" EST SHI © 
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LET ay = ny + LET ax = nx 
GO TO S000 
IF ABS (bx-ax) <= 1 AND ABS (by-ay) <= 1 THEN 
FOR k = 1 10 11 = BEEP .1, 
PRINT OVER 13 AT ax, ays ". GRA D 
= NEXT k = 
INT (15% RND ) = LET ay = 29 = 
PRINT AT ax, ay3 “ EXIT SHI 4. GRA D 
Ge ©" EXT SHI 0 
7O10 IF ABS (sx-ax) <= 2 AND ABS (by-sy) <= 2 THEN 
GO TO 8500 
7020 PRINT OVER 13 AT ax, ay; "4 GRA D GRA E"; 
AT ax-1, a EXI SHI 4. 
GD GR E" EXT SHI © 
LET ax = ax-1 ¢ LET ay = ay-1 = LET by = by-1 
IF ay < O THEN LET ay = 31 
IF by ¢ 0 THEN LET by = 31 
LET v = USR 32500 
PRINT OVER 13 AT sx, sy-1; ". GRA F GRA G 
GRB H GBA I"; AT sx, syi 
“ BSI SHI 6. GRE F GRS G 
GRA H GRE I" EXT SHI oO 
7080 LET # = 0 
7090 FOR x = ax-3 TO ax+3 
7095 IF x > 20 THEN GO TO 7125 
7100 FOR y = ay+1 TO ay+3 
7105 IF y < 0 OR y > 31 THEN GO TO 7120 
7110 IF ATTR (x, y) = 11 THEN PRINT AT x, y3 
INK 13 "a 2 LET # = #44 
7120 NEXT y 
7125 NEXT x 
7130 IF # = 2 THEN GO TO 7200 
7140 PRINT AT ax, ay+33 INK 13 "4"3 AT axt1, ay+23 
4 coa'a OT axt2,: ayt23: “aan 
7145 LET ay = ay+i = PRINT OVER 13 AT ax, ay-13 
“. GRE D GRA E"; AT ax, ays 
“ Gel SJ 4. Gee D 
Gee E" EXT SHI © 
7150 Pai © = e+! : IF e = 3 THEN GO TO 8550 
GOD TO 5000 
7200 PRINT OVER 13 AT ax, ay} ". GRE D GRA E"; 
AT ax-1, ays “ EXt Sut 4 
. G86 D GRA E" ExT Shi oO 
7210 LET ax = ax-1 = REM LET ay = ay-1 = 
IF ay < © THEN LET ay = 31 
7220 LET by = by-1 = IF by < © THEN LET by = 31 
7230 LET v = USR 32500 
7240 PRINT INK 43 AT ax+1, ays “4. GBA AN; 
AT ax+2, ays “. GRA BY 
7250 FOR k = ax-1 TO 0 STEP -1 
7260 PRINT OVER 13 INK 43 
AT k+l, ay; " GRE D GRE E"; 
AT k+2, ay 
AT k+3, ay 
AT ky ays ” 
AT k+1, ays 
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Freeway Frog 


Copyright (c) Beam Software 


You are a poor little frog desperately trying 
to get home across the highway. In your travels you 
must brave trucks, motor cycles, cars and worst of 
all high speed police cars that can appear at a moment's 
notice. To control your frog use the following keys 


"gr to move up on the screen 
‘AY to move down 
“Rt ro move right 
‘or to move left 


You get points for moving up and down, so to 
get a higher score you can cross the highway as many 
times as you like. When a frog reaches the top of the 
screen he is home and you then move onto the next one 
to try and get him home. 


Hiow the program works 


This program makes extensive use of the user 
defined graphic set of your SPECTRUM, If you don't know 
about these yet it might help to read chapter 14 of the 
manual, The SPECTRUM only allows you to have 21 user 
defined graphics at once. This program however requires 
58 of them. 

To allow the computer to access this many 
characters requires that the UDG area be moved back 
and forth between two or more sets of characters. 

To do this we first need to make room for 
the number of characters required. For a 16 K system 
with only 21 user defined characters the UDG area {s 
located at memory locations 32600 to 32767. This is 
168 bytes of memory or given 8 bytes for each character 
this ig 21 characters, Since we need 58 characters for 
our game we must have 464 bytes of memory for the UDG 
area. This corresponds to locations 32304 to 32767 so 
the first instruction in the program must be a 

CLEAR 32303 (NOTE if a CLEAR is done after 

any variables have been defined 
in LET or DIM statements they 
will be lost) 

In this program we have three sets of specially 
defined characters : 

The first two have 21 characters each and the third only 
16. So to access any set all we need do is point the 
system variable UDG (locations 23675 and 23676) at the 
correct block. These are 

32600 for the first set (the normal set) 

32432 for the second set (32600 - 168) 

32304 for the third set (32432 - 128) 
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Note the third set overlaps the second because 
it only has 16 characters. 


To set the correct value for UDG requires a 
bit more calculation. The number to be POKEd into UDG 
fs obtained by: 

POKE 23675, 'value'-256* INT('value'/256) 
and POKE 23676, INT('value'/256) 

Note we do not actually need to put these 
lines into the program since we can calculate the 
correct values ourselves and use them. 


£.G TO GET POKE 23675 POKE 23676 
32600 88 127 
32432 176 126 
32304 48 126 


The values for the user defined graphics must 
somehow be input to the computer and since we have 

58 characters or 464 bytes, we need to input 464 values. 
Tf these are put in data statements they cake up a lot 
of space (so much in fact that there {s not enough room 
for the game). And it would be silly co input them 
every time the game was loaded. So to overcome this 
problem the program has been split into two parts. 

The first builds the user defined graphics and when 
these are correct they are saved to tape as a block 

of bytes. When the game is run this block of bytes is 
loaded from the tape and the game can be played. 

(Note you only need to load the block of bytes 
when the game is run the first time after being loaded 
from its tape. Once the characters are in the computer 
they will stay there until the power is turned off or 
another program overwrites them.) 


Defining the Freeway Frog graphics 
‘ 

The following program will build the graphics 
for this game. It is important to take a lot of care 
when typing in the data statements, since any errors 
will be very hard to find later. When the program is 
run it will put all the data in the user defined 
gfaphics area, then print on the screen all the shapes 
used. 

You should see on the screen, 

Four frogs in green at the top. 

Each frog should look the sane except 

that they should all point in different 

directions. (The first up, then right, down 

and the last left) 
Below these there should be 

A white motor cylce, a red car, and a truck 

all facing left. 

And below these a white moter cycle 


a 


a yellow car and a truck all facing right 


If all looks correct then the character set 
may be saved to tape, Use the command 

SAVE "frogshapes" CODE 32304, 464 

(the name does not matter anything will do) 


Don't forget to save the program as well in 
case you need it later. 


The main program for Freeway Frog 


The main program is fairly long so it might 
be a good idea to type it in in stages being very 
careful to check what is input carefully. 

In particular the sections of the program 
that draw the shapes contain many graphic characters 
and color control codes. Since these will look very 
different once the program is run (e.g a graphic A will 
not be an 'A' once the characters have been loaded) 
it is very important to type these in carefully. It 
ts almost impossible to find errors later on. 


When the program is run it will wait to 
load the graphic shapes from tape. You should 
put the tape with the bytes you saved from above 
in the recorder and start it playing. If you wish 
to run the game and the bytes have already been 
loaded use RUN 26. 


The following is a breakdown of the game 


LINES DESCRIPTION 
20 - 25 sets RAM TOP to allow room 
for the user defined grpahics 
a and then proceeds to load them 
from tape. 


26 - 75 initializes all the variables used 
sets the screen colors, the positions 
of the cars trucks and motor cycles 
and the variables used to change 
the UDG character set. 

(the program should be run from here 
if the user defined characters have 
already been loaded) 


80 — 100 draws the highway 
105 draws the frogs left on the screen 
106 displays the score and high score 
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110 - 150 


500 - 530 
600 - 700 
750 

800 - 820 
900 - 950 
990 - 999 
1000 + 1070 
1080 - 1117 
2000 - 2001 
2010 ~ 2012 
2100 ~ 2112 
2200 ~ 2201 


decides if a police car is to race 
across the highway. If one is to 
appear then the direction of its 
travel is determined and it is 
displayed. 


checks to see if the frog has been 
squashed all over the highway 

If it has the program jumps to 
line 4000 


if the player is allowed to move 

(he can move only once every 2 
cycles of the main loop) the 
keyboard is checked to see if 

he wants to move. If so the 

position of the frog is altered 

Its direction is changed if required 
and the score is increased if he has 
moved up or down. The old frog is 
then undrawn and the new one drawn. 


moves all the motor cycles and redraws 
them 


every second cycle this moves all 
the cars and redraws them 


every fourth cycle this moves all 
the trucks and redraws them 

Then jumps back to 106 for another 
cycle 


removes a frog from the screen 
The position of the frog is checked 
to see if the highway needs to 
be redrawn where the frog was 


This consists of four subroutines 
used to draw the Frogs facing in the 
four different directions 


These 6 subroutines draw the cars 
trucks and motor cycles 


draws all the cars on the screen 
updates the positions of all the 
cars (i.e the cars moving right 

have there position increased and 


those moving left decreased) 


draws all the motor cycles and 
updates their positions 


draws all the trucks 
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2210 - 2212 updates the positions of all the 


trucks 

4000 - 4010 indicates to the player that a frog 
has been run over, then decreases 
the number of frogs left. If there 
are any left the program jumps back 
to start with the next frog 

4020 - 4070 prints a game over message, updates 
the high score if necessary and 
asks the player if he wants to play 
again. 

5000 - 5020 A jump is made to here if a frog gets 
home, the number of frogs left is 
decreased and if any left the game 
continues otherwise the program 
goes to 4020 


££ Ew E 
* <> 3 BBS 
. pawn Sx 


Score @ HIGH SCORE o 


USER DEFINED GRAPHICS FOR FREEWAY FROG 


20 CLEAR 325 


25 LET z = 0 = LET x = 255 
30 FOR i = 32304 TO 32767 
40 READ a = POKE 1, a = NEXT i 


SO BORDER © = PAPER O = CLS 

60 POKE 23675, 48 = POKE 23676, 126 

70 PRINT AT O, 93 “ ERT SHI 4 GAS A GRE B 
a. GBS — GRA F.. GBS I GRE J 
a. GR M 288 N Esl SHI 0” 

71 PRINT AT 1, 95 “ GAT SHI 4 GES C GRA D 
a. G86 G GRA H.. GRA K GRA L 
a. GRO O GRA P EXIT SH} 0” 

BO POKE 23475, 176 

@1 PRINT = PRINT = PRINT 


a. BST SHI 5S GBS D GRE D GRS D 
GRE D Gke C EXIT SHI 0" 

82 PRINT “.. €S2 SHI 7 GBS FR GAS S 
Gal SHI O....... EXT SHI 2 
a. GRO N GRO O EAL SHI O......4 
Gal SHJ 3 Gkea L GRA I Bs SHI S GRE 
SHJ 8 GRE aHl 3 GBS Sti 8 GS SHI 8 


GBS © Gal ays 0" 

®3 PRINT “.. EXT SHS 7 GRE T GRE U ExT SHI O 
aeeeaes EXT SHI 2 GRO A GBS B 
GBS P GBS O Esl SHJ O....... 


GXI SHI 3 GRE M GRA kK EAI SHI 5S GRE J 

GBS G GRS5 G BRS H GRE F GAIT SHI 0” 
90 POKE 23475, 88 + POKE 23476. 127 
91 PRINT ¢ PRINT = PRINT "s.sssaeasaaee 

aeeeeeeees ESL SHI 5S GRE C 

GBA D GRE D GRea D SRS D EXT Sui Oo” 
92 PRINT “a. EXT SH} 7 GRE R GAS S 

Bel SHI 0O....... Gxt 

SHI 6 GRA N GAS O ESI Sed O......245 

GXI SHI 5 GRS6 F GRE SHI @ GBS SHJ 8 GHe 
« SHI 8 GRE SHI 8 GAT SHI 3 GRA J GAS Kk 


GXI Suz 0” 
93 PRINT “.. GSI SHI 7 GRS T GBS U GSI ahi oO 
Peeerrrs aul 6 


GBS PF GR 9 GRE A GRA B Gal SHI O 
aeseeee ESI SHI S 
GBS — GR G GRA H GRE H GBA i GAL 
Shu 3 GaSe Ge M Gal SHI Oo" 
100 IF INKEY$ THEN GO TO 100 
110 BORDER 7 > PAPER 7 = CLS 
120 STOP 
FOOO DATA z. 1, 35, 37, 111. 79, 223, 
DATA z, 128, 196, 164, 246, 242, 
DATA 111, 15, 31, 159, 220, 216, 
DATA 246, 240, 248, 249, 59, 27, 
DATA 56, i135. 195, 252, 127. 31. 31, 31 
DATA 192, 240, 156, 192, 240, 248, 244, 254 
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Chess 


Adventure 


Fruit Machine 


Alien Blitz 


9038 
9039 
2040 
9041 

9042 
70483 
7044 
97045 
9046 
9047 
9948 
9049 
905u 
9051 


DATA 


DATA 31, 31, 31, 127, 252, 193, 113, 56 
DATA 254, 244, 248, 240, 192, 156, 240, 192 
DATA 48, 120, 216, 220, 159, 31, 15, 111 
DATA 12, 30, 27, 59, 249, 248, 240, 246 
DATA x, 223, 79, 111, 37, 35, 1, 2 

DATA x, 251, 242, 246, 164, 196, 128, z 
DATA 3, 15, 57, 3, 15, 31, 47, 127 

DATA 28, 142, 131, 63. 254, 248, 240, 240 
DATA 127, 47, 31, 15, 3, 57, 15) 3 

DATA 240, 240, 248, 254, 63, 131, 142, 28 
DATA\z, z, 3, 7; 15, 2, zs 2 

DATA 7, %, %, 159, 111, 247, 240, 96 

DATA z, 2. z, 7. z, 254, 254, 254 

DATA z, 23 Zs 2: Zs Ky Xa X 

DATA 254, 254, 254, 254, 254, 254, 254, 254 
DATA 254, 254, 254, 4. 50, 122, 122, 48 
DATA ¥. Ks Ke 25 Zs Ze Zs Z 

DATA x, %, 296), 15, AS, O 

DATA 2, 2, 256, 250, 254, 252, 252, 248 
DATA x, x, xy Ms 6, 15, 15, & 

DATA 248, 252, 254, 127, 184, 216, 192, 128 
DATA 2, #: 7; 9, 17, 17, Sly 31 

DATA 31. 31, 3), 42, 61, 59. 3, 1 

DATA z, z; 2, 2; 23 63; 97, 193 

DATA 2, 23 2; 2 2% 25, 12G, 192 

DATA 128, x, x, %, %, 254, 2, z 

DATA 240. 254, x, 159, 111, 246, 240, 96 
DATA 1, 3, 1. 2, 3, 4, 14, 31 

DATA 128. 192, 192, 224, 224, 112. 119, 255 
DATA 31, 63, 115, 81, 169, 112. 112, 32 
DATA 254. 252, 252, 234, 213, 206, 14, 4 
DATA 274, x. %, 249, 246, 239, 15, 6 

DATA 2, 2, 192, 224, 240, 64, z, z 

DATA z; 2) Z3 23 2%» 1275 127, 127 

DATA 2, 25 Zy Zs 25 Xo My x 

DATA 127, 127, 127, 32, 76, 94, 94, 12 
DATA 127. 127, 127, 127, 127. 127, 127, 127 


pata Ha Ze 96, 240, 240, 96 

Data Weitivzs: Z3) 2a 2 

DATA Xe X, 96, 240, 240, 96 

pata 64. 95, 95, 127, 63. 63, 31 

DATA 2. 224. 144, 136, 136, 248, 248 
DATA 31, 63. 127. 254, 29, 27, 3. 1 

DATA 248, 248, 248, 124, 188, 220, 192, 128 


DATA z, z. 2, 
DATA 
2aTA 


Soe ae os: 

Zz, 252, 134, 131 

249, 246, 111, 15, 6 
Xs 127, 25 z 

DATA 14, 238. 4 

DATA 128, z, 192, 32, 112, 248 
DATA 87, 171, 115, 112, 32 
DATA 206, 138, 149, 14, 14, 4 
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FREEWAY FROG 


20 CLEAR 32303 = RANDOMIZE 
25 LOAD “" CODE 
26 LET hi = 0 
3O LET mi = 2% INT RND 415 = 
LET m2 = 2% INT RND #15 
33 LET ti = INT RND #30 = LET t2 = INT RND #30 
34 LET ci = 2% INT RND #30 = 
LET c2 = 2% INT RND *30 


35 LET ce = 2? LET cf = 6 

36 LET pz = 4 = LET tz = 4 @ LET mz = 2 
40 BORDER © = PAPER 0 = INK 7 = CLS 

45 LET f = 4: LET fc = 5 

SO LET ul = 23675 + LET uh = 23676 

SS LET sc = 0 

460 LET Li = 88 ¢ LET L2 = 176 = LET L3 = 48 
70 LET hi = 127 = LET h2 = 126 

75 LET Lio = @ = LET Lil = 9 * LET LI2=7 


LET L20 = 13 ¢ LET L21 = 14 = LET L22 

80 PLOT ©, SB = DRAW 255, © = DRAW O, 1 = 
DRAW -255, 0 

90 PLOT 0, 128 = DRAW 255, © = DRAW O, 1 = 
DRAW —255, 0 

100 FOR x = 2 TO 256 STEP 8 + PLOT x, 83 + 
DRAW 4, 0 = DRAW O, 1 = DRAW —4, 0 + NEXT x 

105 LET pa = 20 = LET py = 20 ¢ 
FOR x = 0 TO (fc-1)83 STEP 3 = LET px = x = 
GD SUR 1020 = NEXT x 

106 PRINT AT 0, 05 " EXT SHI 4Score, EXT SHI 7"5 sci 
AT Oo, 1 ESI SHI 6HIGH.SCORE. EXI SHI 7"3 hi 

110 IF RND < .9 THEN GO TO S00 

115 IF RND > .5 THEN GO TO 150 

120 LET c = 5 + FOR j = 1 10 6 = BEEP .2, 10 
BEEP .2, 20 = NEXT j + FOR x = -4 TO 30 STEP 2 
+ GO SUB 1080 = NEXT x 

130 GO TO 500 

150 LET c = 5 = FOR j = 1 TO & = BEEP .2, 20 = 

NEXT j = FOR x = 30 TO -4 

GO SUB 1140 = NEXT x 

500 IF py > 15 OR (py < 12 AND py > 9) OR py < & 
THEN GO TO 600 

510 LET i = 22528+py%32+px 

520 IF PEEK 1 <> 4 OR PEEK (i+1) <> 4 THEN 
GO TO 4000 

S30 IF PEEK (i+32) <> 4 OR PEEK (i+35) <> 4 THEN 


GO TO 4000 

600 IF pz THEN LET pz = pz-1 + GO TO 700 

610 LET pz = 1 = LET z® = INKEY$ ¢ IF z® = "" THEN 
GO TO 700 


615 GO SUB 990 

620 LET py = py-(z# 
630 LET px = px+(2$ 
640 IF z¢ q" THEN LET pa 
641 IF 2% p" THEN LET pa 
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642 
645 
650 
660 
700 
750 
800 
B10 
820 
900 
FOL 
902 
9750 
990 
991 


995 


996 
997 
998 
999 

1000 

1010 


1020 
1030 


1040 
1050 


1040 
1070 


1080 
1085, 


1090 


1095, 


1100 
1104 


THEN LET pa = 40 

THEN LET pa = 60 

IF py = 0 THEN GO SUB 5000 

LET sc = sc+10x(z$ = “q" OR z$ = “a") 

GQ SUB 1000+pa 

GO SUB 2100 

IF mz THEN LET mz = mz-1 

GO SUB 2000 

IF NOT mz THEN LET mz = 2 + GO SUB 2010 

IF tz THEN LET tz = tz-1 

GO SUB 2200 

IF NOT tz THEN GO SUB 2210 = LET tz = 4 

GO TO 106 

PRINT AT py, px "a AT py+l, pxs 

IF py = 10 OR py = 11 THEN PLOT px#8+2, 83 = 
DRAW 4, 0 = DRAW 0, 1 = DRAW —4, 0 = 
PLOT px#8+10, 85 = DRAW 4, 0 = DRAW O, 1 = 
DRAW -4, 0 = RETURN 

IF py = 17 OR py = 14 THEN PLOT px48, 38 = 
GO TO 998 

IF py <> 5 AND py <> 4 THEN RETURN 

PLOT px38, 128 

DRAW 16, © = DRAW 0, 1 = DRAW -16, 0 

RETURN 

POKE ul, L3 = POKE uh, h2 

PRINT INK #3 AT py, px; " GBA A GRA BR" 
AT py+i, pxj “ GBB C GRA DY = RETURN 

POKE ul, POKE uh, h2 

PRINT INK #3 AT py, px3 " GRA E GBA F"5 
AT py+l, px3_" GBA G GRA H" + RETURN 

POKE ul, L3 = POKE uh, h2 

PRINT INK f3 AT py, px; “ GRA IT GRA J" 
AT py+i, pxi " GRA K GRA L" = 

POKE uL, L3 = POKE uh, h2 

PRINT INK #3 AT py, px3 " GRA M GRA N"; 
AT py+i, pxj_" GRA O GRA P" = RETURN 

POKE ul, LI = POKE uh, hi 

IF x < 0 THEN PRINT AT L1O, 03 INK c3 
"4. GRAN GRA O.."(i-x TO )3 AT Lit, OF 

“" GRe P GRe O GRA P GRE O GRA A GRA B" 
(1-x TO) = RETURN 

IF x > 26 THEN PRINT AT L10, x3 “ EXT SHI O.."5 
INK ci “ GRE N GRE ON TO 30-x)5 AT LIL, x5 
" BRI SHI 0.."5 INK c3 " GRE P GRE Oo” 
( TO 30-%) = RETURN 

PRINT AT L10, x3" EXT SHI O.."5 INK C3 
“ GRAN GRA O.."5 AT Lil, x3 " EXT SHE 0.1." 
3 INK cs “ GRA P GRA @ GRE A GRH B" = 
RETURN 

POKE ul, L1 + POKE uh, hi 

IF x >= 0 AND x < 25 THEN PRINT AT L12, x3 
“ BRI SHI 0. EXIT SHJ 5S GBS C GBS D GaSe D 
GBA D GRA D"; AT LIO, x3 “ EXT SHI O 

Ext SHI 5 GRe F GRE SHI 8 GRA SHI 8 

ine SHI 8 GRO SHI 8 EXI SHI 3 GRe J 
@B8 K"s; AT LI1, x} “ EXT SHI O. EXT SHI 5 


an 


1108 


1112 


1115 


1117 


1120 
1125 


1130 


1135 


GB6 — GR6 G GRA H GBS H GRA I EXT Sul & 
GBA L GRA M" = RETURN 

IF x < —S THEN PRINT “ EXT SHI 3"; AT L10, 
“ GRE J GRA K"(-S-x TOs AT Lil, 05 

" GRA L GRA M"(-S-x TO ) = RETURN 

IF x < O THEN PRINT AT L12, 03 " EXT SHI 5"5 

“ GBB C GES D GBS D GRS D GRE D"(-x TO )5 
AT Lio, 0; " GRE F GBA SHI 8 GRE SHI 8 
GRS SHI 8 GRE SHI B8"(-x TO >s “ EXIT SHI = 
GRA J GRA K"} AT L11, 05 “ EXT SHI 5"5 
“GRe — GRe G6 GRA H GRA H GRA I"(-x TO 3 
“ EXT SHI 3 GRS L GRA M" + RETURN 

IF x = 25 THEN PRINT AT L12, x3 

“ EXT SHI O. EXIT SHI S GRE C GRA D GRE D 
GBS D GRA D"; AT LIO, x3 " EXT SHI O 

» ESI SHI 5 GRS F GRE SHI 8 GRA SHI 8B 
GBS SHI 8 GRS SHI & EXIT SHI 3 GRA J"; 
AT Li1, x3 " EXT SHI O. EXT SHI S 

G86 — GRA G GRE H GRE H GRA I EXIT SHI 
GRA L" = RETURN 

PRINT AT L12, x3 “ GAT SHJ O. EAT SHI 5S"; 

" GRE C GRE D GRS D GRE D GRe dD" 

(TO 31-x); AT L10, x3 " EXT SHI 0 

+ EST SH] 5"; “ GRA F GRE SHI 8 

GBS SHi 8 GES SHI 8 GRA SHI a” 

(TO 3i-x)3; AT L11, x3 “ EXT SHI O 

~ EXT SHI 5"; " GBB E— GRB G GRA H 

GRA H GRA I"( TO S1-x) = 

RETURN 

POKE ul, Li = POKE uh, hi 

IF x < 0 THEN PRINT AT L10, 03 INK 73 

“ GBS R GRE S"5; AT L11, O53 INK 73 

“ GRE T GRE U" = RETURN 

IF x > 28 THEN PRINT AT L10, x3 “ BRI SHI O.." 
3 AT L11, x3 " EXT SHI O.." + RETURN 

PRINT AT Li0, x3 " EXT SHI O.. EXT SHI 7 
GBS FR GR6 S EXT SHI O"5 AT LI1, x5 

“ BSI SHI O.. EXT SHI 7 GRE T GRE U 

EXI SHI 0” = RETURN 


1140 POKE uL, L2 + POKE uh, h2 


1145 


1150 


1155 


1160 
1163 


IF x > 26 THEN PRINT AT L20, x3 
INK c3 “1. GBA N GRA O"( TO 32-%)5 
AT L21, x3 INK cj “ GRE A GRE B GRE P 
GBS O"( TO 32-x) + RETURN 

IF x < 0 THEN PRINT AT L20, 03 INK c3 

+ GRE N GR O EXIT SHI 0..." 
(-x TOs AT L21, 03 INK c3 “ GRE B GRE P 
GBS O EXT SHI O.."(-x TO) = RETURN 

PRINT AT L20, x3 INK c3 “.. GRA N GRA O 
EXI SHI 0.."3 AT L21, x3 INK ci 
“ GBS A GBS B GRE P GBS O EXT SHI 0.." = 
RETURN 

POKE ul, L2 = POKE uh, h2 

IF x >= 0 AND x < 25 THEN PRINT AT L22, x3 
“ BSI Soi O.. EXT SH] 5 GRSB D GRE D 
SB6 D GRS D GRE C EXIT SHI O."3 AT L20, x3 


1165 IF 


“ EXIT Shi 3 GRE Gxt SHI S Ga6 J 
G6 G GRE G GRE GRE F EXIT SHI 0." = 
RETURN 

1170 IF x < -1 THEN PRINT AT L22, 03 “ EXIT SHI 5"3 


- GRA D GRe D GRA D GRA D GRA C 
EXI SHI O."(-x TO 3 AT L20, 03 


(-x TO 5 AT L21, O53 “ EXT SHI 5" 
- GBS J GBS G GAS 6 GRAS H GRE F 
GSI SHI O."(-x TO) = RETURN 

1173 IF x > 29 THEN PRINT AT L20, x3 " EXT SHI 
“ GRe L GRE I"( TO 32-x)5 AT L21, x3 
“ GRA M GRE K"¢ TO 32-x) = RETURN 

1175 PRINT AT L22, x3 " EXT SHI O.. EXT SHI 5S"; 
" GBS D GBS D GRAS D GRA D GRA C"( TD 30-x)5 
AT L20, x EXI SHI 3 GRA L GRe I 
Gal SHI 5S"; " GRE SHI 8 GS SHI 8 
GBS SHI S GRS SHI 8 GRA E"( TO 30-x)5 
AT L?1, x3 " BSL Sot S GRE M GRE K 
EAI SHI 5"; " GS J GRA G GRA G GRA H GRA F” 
(TO 3O-%) = RETURN 

1180 POKE uL, L2 + POKE uh, h2 

1185 IF x > 29 THEN PRINT AT L20, x3 INK 73 
" GRE R GRA S"; AT L21, x5 
" GRE T GRE U" = RETURN 

1190 JF » < @ THEN PRINT AT L20, 
“ GBe S ERI SHI O,."(-x TO 
INK 73 " GRA U GST SHI O.." 
(-x TO) = RETURN 

1195 PRINT AT L20, x3 Gal SJ 7 GES R GH S 
GXI SHI O.."3 AT L21, x3 
“ GSI SHI 7 GRB T GES YU EXT SHI 0.1." = 
RETURN 


oO LET ¢ = ce ? LET x = cl = GO SUB 1080 
LET c = cf = LET x = c2 = GO TO 1140 
LET cl = ci+2 = IF cl = 32 THEN LET cl = -4 
LET c2 = c2-2 + IF c2 = -6 THEN LET c2 = 30 
RETURN 
LET » = mi = GO SUB 1120 
LET mi = mi+2 2 IF mi = 32 THEN LET ml = -2 
0 LET x = m2 = GO SUB 1180 
LET m2 = m2-2 = IF m2 = -4 THEN LET m2 = 30 


RETURN 


2200 ti = GO SUB 1100 

2201 t2 + GO TO 1160 

2210 = ti+1 = IF ti = 32 THEN LET ti = -7 

2211 = 2-1 * IF t2 = -8 THEN LET t2 = 31 

2212 

4000 2 = FOR i = 50 TO 1 STEP -S5 = GO SUB 990 


= GO SUB 1000+pa + BEEP .02, i = NEXT i 
4005 GO SUB 990 = LET # = 4 
4010 LET fc = fc-1 = IF fc <> 0 THEN GO TO 105 
4020 PRINT AT 1, 10; “Game. over" 
4030 IF sc > hi THEN LET hi = sc = PRINT AT 2, 33 
“But .your score .is.the new 
anne sees eee s sHIGH. SCORE” 
4040 PRINT AT 4, 63 “HIT.’y’ .to.playsagain” 
4050 IF INKEY# = “" THEN GO TO 4050 
4060 IF INKEY® THEN GO TO 30 
4070 STOP 
5000 FOR i = 1 TO 50 STEP 5 + GO SUB 990 = 
GO SUB 1000+pa = BEEP .02, i = NEXT i 
5005 GO SUB 990 
S010 LET fc = fc-1 + IF fc <> 0 THEN GO TO 105 
5020 GO TO 4020 
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High Resolution Graphics 


Copyright (¢) Beam Software 


DESCRIPTION 


This program can be fun to just play around with, and 
see greatly magnified the USER DEFINE GRAPHIC CHARACTER 
SET. 

But it is a MUST to COMPUTER programmers who want to 
change the GRAPHIC CHARACTERS into HIGH RESOLUTION 
graphicsfor their own use. eg GAMES. 

An exceedingly powerful editor is implemented with 
features like: 

Dynamic display of graphic development 
Instant blanking of characters 

Instant filling of characters 

Large editing simulation display 

Mirror image of existing characters 

Four directional wrap around cursor 
Option of one, two or four characters 
Easily identifiable colours 

Instant abort at any time without changes 


More than these, at the end of editing, the memory 
location of these characters are automatically updated 
and all data corresponding to the characters are 
displayed with the option of sending them to the printer. 


You will be amazed at how handy this program can be. 
When the computer is doing its processing, you will be 
informed throughout. 


To use the program 
EDITING 
cursor control 

cursor left 

cursor down 

cursor up 

cursor right 

turn pixel under cursor ON, 
turn pixel under cursor OFF 


‘ 


ete 


operation control 
Blank all pixels 
Fill all pixels 
Mirror image of the character blocks 
Save changed character blocks in memory 
Escape from editing with no changes to 
character blocks (Note - you must use (shift) e} 


moamo 
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PROGRAM STRUCTURE 


The program uses an array to simulate the memory 
bytes which defines the character block. 

The character set of first USER DEFINED GRAPHIC 
character starts at memory location 65368 for 48K machine 
and 32600 for 16K machine. Then follows 8 bytes of shape 
definition for that character. 


The structure of the program is as follows: 


TNPU 


SET VARIABLES OF DISPLAY FILE 

INPUT STARTING OF CHARACTER BLOCK 

INPUT NUMBER OF CHARACTERS (1 or 2 or 4) 

DEFINE DIMENSION OF simulation, memory address ptr, 
mirror image working ARRAYS 

MAIN LOOP: 

INITIALISE simulation, memory address ptr ARRAY 

READ MEMORY BYTES INTO simulation ARRAY 

DISPLAY ENLARGED and REGULAR SHAPE OF CHARACTER BLOCK 

PERFORM EDITING ROUTINE 

UNTIL SAVE OR EXIT 
PROMPT PRINTER OPTION 
1F MORE CHARACTER TO BE REDEFINE GO TO INPUT: 


EDITING routine 

DETERMINE S12E OF ENLARGED BLOCK TO BE EDITED 
El: FLASH CURSOR 

ACCEPT CONTROL KEY INPUT 

UNFLASH CURSOR 


CASE : '5! or 'B! calculates new cursor position 
goto El: 
ror set current simulation array 
element to 0, update screen 
display 
goto El: 

‘< 1% set current simulation array 
element to 1, update screen 
display 
goto El: 

‘f! or ‘b! FLLl whole simulation array to 


if '£', to Oif ‘bt 

redisplay character block 

goto El: 

prompt saving option 

if save then store simulation 
array into memory 

{f not save then goto El: 


tm! swap simulation array rows back to 
Front 
goto El: 
‘ge return 
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SPECIAL NOTES 


The flashing and unflashing of the cursor is done by 
changing the attributes of character position in the 
display file. The memory location of the top lefe 
character position in display file is 22528, therefore 

3040 LET a = 22528 + 32 * x + y + POKE a, PEEK a + 128 
will set line x column y to flash; in the same manner 
3060 POKE a, PEEK a - 128 
will set that position to unflash. 


To facilitate the COPY of screen onto the line 
printer, a blank pixel is displayed as PAPER yellow INK 
BLACK; a filled pixel is displayed as PAPER white INK 
BLUE. 


Print instruction is used to display ENLARGED 
character size and Plot instruction to display REGULAR 
character size. 


In order to reference the right USER DEFINED GRAPHIC 
character, any lower case character INPUT will be 
adjusted to UPPER case by 

8060 LET K$ = CHR$ ( CODE K$ - 32 ) 


A testing is also performed to check if the INPUT 
character is beyond the USER DEFINED CHARACTER set by 
8070 . . . OR ( CODE K$ + nc + 79-1) ) 164 
ie the ASCII code of the first character in upper case 
plus the number of characters to be defined plus 79 minus 
1 should not exceed 164, which is the ASCII value of the 
last USER DEFINED GRAPHIC character. 


To obtain the start of the 8 memory bytes that define 
a particular USER DEFINED CHARACTER and put it into the 
array, refer to 

8150 LET S(1+1) = USR CHR$ ( CODE K$ +1) 
‘ 

The logic behind the setting of mirror image of the 
array is by dividing the array into two array and 
interchanging the two far-end elements and moving inward 
until the middle of the array is reached. In other 
words, an eight elements row will be divided into two 
halves of 4 elements each. The first element of the first 
half is swapped with last element of the second half. 
Then the second element of the first half will be swapped 
with the second last element of the second half. This 
will continue until the last element of the first half is 
swapped with the first element of the second half. You 
can refer this logic to lines 3330 — 3400. 
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HIGH 


100 
110 
120 
1000 
1010 
1020 


1030 


1040 
1050 
1060 
1070 


1080 


1090 
1100 
1110 
1120 


1130 
2000 
2010 
2020 
2030 
2040 
2050 


2060 
2070 
2080 
2090 
2100 


RESOLUTION GRAPHICS 


REM USR 
REM User .define .GRAPHIC 
GO TO 8000 
REM Draw.character .set 
REM Inputar, cj starting.coordinates 
PRINT AT 8, 113 “a. 
PRINT AT 9, 115 "a." 
¢ FOR H = 1 TO nc 
LET hr = B&(H = 3 OR H = 4) 
* LET he = B#(H = 2 OR H = 4) 


FORT =1708 
FOR J = 1708 
PRINT AT (I4+r+hr), (J+c+he) 5 
IF B(I+hr, J+hc) = 0 
THEN PRINT PAPER 63 INK O§ "4" 


= GO TO 1090 
PRINT PAPER 73 INK 15 “ GRA SHI 8" 

® PLOT 87+J+hc, 112-I-hr 
NEXT J 
NEXT I 
NEXT H 
LET 16 = 
RETURN 
REM 
REM char .into.array 
REM Input.k$, Gutput.B(I, 3) 
REM 
FOR H = 1 TO nc 
LET hr = 8&(H > 2) 

* LET he = 8*(H = 2 OR H = 4) 
FOR I =1 708 
LET m = PEEK (s(H)+I-1) 
FOR J = 8 TO 1 STEP -1 
LET B¢I+hr, J+hc) = m-2% INT (m/2) 
LET m = INT (m/2) 


2110) NEXT J 


2120 
2130 
2140 
3000 
3010 
3020 


3030 
3040 


3050 
3060 


3070 
3080 


NEXT I 
NEXT H 
RETURN 
REM Edit .CHAR, x = row, y = col 
REM Input .B(I, J) 
LET hr = 8&inc > 2) 
= LET he = 8%(nc = 2 OR nc = 4) 
LET x =r+1 + LET y = c+i 
LET a = 22528+324x+y 
+ POKE a, PEEK a+i128 = PAUSE 200 
IF INKEY$ = "" THEN GO TO 3050 
LET M$ = INKEY$ = POKE a, PEEK a-128 
+ REM unflash.old.pos 
IF M$ < "5" OR M$ > "8" THEN GO TO 3150 
LET y = y+ime is 
AND (x <> Bthr OR y <> 22+hc))—(Ms = " 
AND (x <> 1 OR y <> c+1)) 
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3O9O LET x = x+(MS = "6")—(MB = -"7") 
3100 IF x > Bthr THEN LET x = 1 
3110 IF x < 1 THEN LET x = 8+hr 
3120 IF y > 22+hc THEN LET y = c+1 = LET x = x+1 
3130 IF y < 15 THEN LET y = 22+hc = LET x = x-1 
3140 GO TO 3040 
3150 IF M$ <> “O" AND M$ <> "1" THEN GO TO 3190 
3160 PRINT AT x5 y3 
3170 IF B(x-r, y-c) = 1 AND M& = "oO" 

THEN LET B(x-r, y-c) = 0 

= PRINT PAPER 63 INK 03 "4" 

+ PLOT OVER 13 87+y-c, 112-x+r 


GO TO 3040 
3180 IF B(x-r, y-c) = 0 AND M$ = 
THEN LET B(x-r, y-c) = 1 


= PRINT PAPER 73 INK 15 " GRA SHI 8" 

2 PLOT 87+y-c, 112-x+r = GO TO 3040 

3190 IF EXIT SHI OMS <> "f" AND MS <> “F" AND MS 
AND M$ <> “BY THEN GO TO 3240 

3200 LET b = (M$ = "Ff" OR M$ = “F™) 

3210 GO SUB 4000 REM init .ARRAY 

3220 GO SUB 1000 + REM drawschar 

3230 GO TO 3030 = REM start .again 

3240 IF M® <> "E™ THEN GO TO 3260 

3250 PRINT AT 19, 03 INK 23 “No.change.to.this 
acharacter!" = RETURN 

3260 IF M$ <> “s" AND M$ <> “S" THEN GO TO 3320 
+ REM edit sinkey 

3270 PRINT AT 18, 05 “Storesthis?.(y.or an) ."5 

3280 LET ef = INKEYS = IF e$ <> “y" AND ef <> “n* 
THEN GO TO 3280 

3290 PRINT INK 23 e$ + PAUSE 50 

3300 IF e$ = "y" THEN GO SUB S000 + RETURN 

3310 FOR M = 1 TO 3 ¢ PRINT AT 174M, 03 


# PRINT “sssessseecensasae 


= NEXT M = GO TO 3030 
3320 IF M$ <> "m" AND M$ <> "M" THEN GO TO 3040 
3330 PRINT AT 0, 263 FLASH 13 INVERSE 13 INK 3 
3 "MIRROR" = LET fe = INT (bc/2+.5) 
3340 FOR I = 1 TO br 


3350 FOR J = 1 TO fc 

3360 LET M = BCT, J) 

3370 LET B(I, J) = BCI, be-J+1) 
3380 LET B(I, be-J+1) = ™ 


3390 NEXT J 

3400 NEXT I 

3410 PRINT AT 0, 263 “ssasaa” 
3420 GO SUB 1000 

3430 GO TO 3040 

4000 REM Initialise.simul ation .ARRAY 
4010 FOR I = 1 TO br 

4020 FOR J = 1 TO be 

4050 LET BUI, J) =b 

4040 NEXT J 

4050 NEXT I 
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RETURN 

REM 

REM Transpose.array.toamem 

PRINT AT G&XI SHI 00, 253 FLASH 13 PAPER 33 INK 7 
3 "SAVING" 


FOR H = 1 TO nc 
LET hr = B#(H > 2) 
= LET he = 88(H = 2 OR H = 4) 
FOR I =11T08 
LET t =0 
FOR J = 8 TO 1 STEP -1 
IF B(I+hr, J+he) = 1 THEN LET t = t+2°(8-J) 


NEXT J 
POKE (s(H)+I-1), t 
NEXT I 
NEXT H 
PRINT AT 0, 253 “soenan” 
PRINT AT 0, 253 PAPER 33 INK 73 "SAVED!!" 
RETURN 
REM 
REM list .memory .value.of .char 
PRINT AT 0, 03 “s2c.enan” 
FOR H = 1 TO nc 
LET he = (H = 2 OR H = 4) 85+1 
= LET hr = (H > 2089 
PRINT AT hr, he-1§ PAPER 13 INK 735 “4. 
3 CHRS ( CODE K$+H-1)5 . 
FOR I = 1708 
PRINT AT hr+I, hes PEEK (S(H)+I-1) 
NEXT I 
NEXT H 
LET UG = CODE K$+79 
+ PRINT AT B, 113 OVER 03 CHR$ UG; 
IF nc >= 2 THEN PRINT CHR® (UG+1) 
IF nc = 4 THEN PRINT EXI SHI O AT 9, 11 
3 OVER 05 CHR$ (UG+2)3 CHR® (UG+3) 
RETURN 
BORDER 5 = INK © + PAPER 7 = QVER 0 = FLASH 0 
2 CLS 
REM key.repre.ofachar ¢ DIM K#(1) 
PRINT "Which. CHARACTER .to.be.redefined?" 
= PRINT “(A.to.U)" 
LET K® = INKEY$ = IF K® >= "A" AND K$ <= “U" 
THEN GO TO 8060 
IF K® < “a“ GR K@ > “u" THEN GO TO 8030 
LET K® = CHR$ ( CODE K$-32) 
PRINT K$ = PRINT = PRINT 
“How.many .characters?.(1.-.4) ."5 
LET nc = (( CODE INKEY$ )-48) 
2 IF nc < 1 OR nc > 4 
OR ( CODE K$+nc+79-1) > 164 
THEN GO TO 8070 
IF nc = 3 THEN LET nc = 4 
PRINT nc ¢ FOR I = 1 TO SO = NEXT I = CLS 
DIM S(nc) 
+ REM memory .location.of .character .set 
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8110 LET br = 8&(1+(ne = 4)) 
= LET be = 8k(1+(ne > 1)) 
8120 DIM C(bc) = DIM Bibr, be) 
+ REM simulationsarray 
8130 FOR I = 0 TO nc-1 
8140 PRINT INK 23 CHR® ( CODE K$+I)3 "A" 
= REM printschars 
8150 LET S(I+1) = USR CHR® ( CODE K$+I) 
¢ REM mem.loc.of char .set 
8160 NEXT I 
8170 PRINT AT 0, 253 FLASH 13 PAPER 1 EXI SHI 03 INK 73 
"LOADING" 
8180 LET b = 0 = GO SUB 4000 
+ REM initialise.ARRAY 
8190 GO SUB 2000 = REM char.to.array 
9200 LET r = 0 + LET c = 14 
8210 GO SUB 1000 = REM Restore.CHAR 
8220 PRINT AT 0, 253 “seasaaa” 
8230 GO SUB 3000 = REM Edit .CHAR 
8240 GO SUB 6000 = REM list .memory.value 
8250 PRINT AT 20, 03 
"Copy.onto.printer?.(y.or an) "5 
8260 LET g = INKEYS 
+ IF g$ <> “y" AND g$ <> "n" THEN GO TO 8260 
8270 PRINT g# 
8280 IF g$ = "n“ THEN GO TO 8320 
8290 PRINT AT 21, 035 


“Press.any.key when ready." = PAUSE 2000 
8300 IF INKEY$ = "" THEN GO TO 8300 
8310 COPY 


320 PRINT AT 20, 03 L$ = PRINT AT 21, 03 LS 
8330 PRINT AT 21, 03 LS 
8340 PRINT AT 20, 03 
“Change .any aother .chars?.(ysor an) "5 
2 PAUSE 200 
8350 LET g$ = INKEY$ = IF g$ <> "“y" AND g$ <> "n" 
THEN GO TO 8350 
8360 PRINT g* 
8370 If gt = 
8380 CLS = RUN 


THEN STOP 
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Line Renumbering 


Copyright (c) Beam Software 


DESCRIPTION 


These are a few programs that you may find useful if 
you are in the habit of developing programs and find 
youself at the end of the development with oddly numbered 
lines and no room to fit in that last brilliantly 
concieved routine in the middle. 


Model 1 (RENUMI) is a short renumbering model 
assuming automatic renumbering from line 100, the first 
line, including all lines before 9990, where the model 
lrenumbering program starts. Line increment for model 1 
is 10 


Model 2 (RENUM2) is a short renumbering model similar 
in features ta Model 1 except it displays on the screen 
all GOTO and GOSUB within each line together with the new 
line number . 

GOTOs and GOSUBs are not renumbered because the ZX 
SPECTRUM supports computed GOTO and GOSUB and these are 

too difficult for the program to renumber . The best we 
can do is to report where they are in the new renumbered 
version and let you to work out what changes need to be 
made. 


Model 3 (RENUM3) is the long version of the 
renumbering program . It allows you to renumber a block 
of lines in any line increment value with GOTOs and 
GOSUBs displayed . It also allows you to PRINT those 
GOTOs and GOSUBs report onto the line printer. Not only 
that, it is a complete screen driven program with high 
emphasis on USER FRIENDLINESS. 


‘ 
To use any of these Models, you need to MERGE the 
program instead of LOAD them because the later method 


will result in a COMPLETE wipe out of your program from 
the primary memory. 


The following is the format of a BASIC program line: 
2-byte: line number with a more siginificant byte in 


front 

2-byte: line length with a less significant byte in 
front 

n-byte: line content includes last end of line character 


The starting address of the BASIC program is 23755. 
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MODEL 1 RENUMBERING 


Use RUN 9990 or COTO 9990 to start the program. 


PROGRAM STRUCTURE 


INITIALISE NEW LINE # TO 100 

INITIALISE MEMORY POINTER TO 23755 
Li: IF ENCODED LINE # )= 9990 

stop 

DECODE NEW LINE # INTO MEMORY 

GET INCREMENTED NEW LINE # 

MOVE MEMORY POINTER TO NEXT LINE 

GOTO Li: 


SPECIAL NOTES 


To delete the renumbering program after use, you may 
need to load the LINE BLOCK DELETE program, another 
exciting UTILITY program of this book. 


The program is from 9990 ro 9995, 


MODEL 2 RENUMBERING 


Use RUN 9988 or GOTO 9988 to start the program . 


PROGRAM STRUCTURE 


INITIALISE NEW LINE #, INCREMENT, BEGINNING OF BLOCK, 
END OF BLOCK 
FIND MEMORY LOCATION OF THE BEGINNING OF BLOCK 
Li: IF END OF BLOCK LINE REACHED THEN STOP 
POKE NEW LINE INTO MEMORY 
REPORT ANY GOTOs AND GOSUBs within the line 
UPDATE MEMORY LOCATION POINTER & LINE # 
coro. Li: 


SPECIAL NOTES 


Since this MODEL has a built in code for finding the 
memory location of the start of block, you can then 
change the variables in line 9988 to suit your operation. 
Again, if you want to delete this short program, you 
can either do it manuallly or you can use our LINE BLOCK 
DELETE program in this book. 
No printer facilities are provided to copy the 
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displayed GOTOs and GOSUBs report; fe You have to do it 
manually. 
The program is From 9988 to 9999. 


MODEL 3 RENUMBERING 


Use RUN 9900 or GOTO 9900 to start the program. 


PROGRAM STRUCTURE 


Screen handling technique is used to input the 
starting and ending line number block to be renumber, the 
increment of lines and the new starting line number of 
the black. 

All the four input values will be round up to an 
integer . 


The structure of the program is as follows: 


INPUT STARTING and ENDING LINE NUMBER of the block 
INCREMENT and NEW STARTING NUMBER of the block 
FIND start of memory of starting line 
CALL RENUMBERING MODULE (same as model 2) 
OPTION AS TO CONTINUE RENUMBERING OTHER BLOCK 
OR TO COPY REPORT OF GOTOs and GOSUBs 
OR TO EXIT WITH OPTION OF DELETE MODEL 3 


SPECIAL NOTES 


This model gives you the option of deleting the model 
itself at the end of the operation . 

The renumbering of the block lines is inclusive. 

The program is From 9900 to 9999. 

1§ you choose the option of deleting the renumbering 
model itself. At the end of the deletion, you need to 
type 9900 (ENTER) to finalise the deletion. This is 
because all of the renumbering program have been turned 
into one very long REM statement. 

Tf you do not choose the delete option and at the end 
you do want to delete the whole renumbering program, you 
can do so by GOTO 9945 followed by (ENTER). 


One interesting use of this model is to define a REM 
statement containing the message which you want to 
display e.g. 10 REM Copyright (c) Beam Software 

Then you can renumber this line to 0 by specifying 
the NEW LINE # as 0. 

After the renumbering you can no longer access this 
line 0 again unless you use the renumbering program to 
change the line to any number greater than 0 . 
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Payroll 


Te ere 


Possessions Evaluation 


Space Escape 


Lunar Lander 


RENUMBERING MODEL i 


9990 REM 

9991 LET L = 100 7 LET N = 23755 

9992 IF (256 PEEK N+ PEEK (N+1)) >= 9990 
THEN STOP 


9993 PUKE N, INT (L/256) 
= POKE (N+1), £- INT (L/256)*256 
9994 LET L = i+id 


2 LET N = Nea+ PEEK (N+2)+256% PEEK (N+3)+1 


9995 GO TO 9992 


RENUMBERING MODEL 2 


9988 LET NEW = 100 = LET IND = 10 
+ LET BOR = 100 = LET EOB = 9980 
9989 LET L = NEW = LET N = 23755 


$990 IF (256% PEEK N+ PEEK (N+1)) >= BOR 
THEN GG TO 9992 
9991 LET N = NeS+ PEEK (N+2)4256% PEEK (NeS)+1 
2 GD TO 9990 
9992 LET ni = (254% PEEK N+ PEEK (N+1)) 
= IF ni > EOBR THEN STOP 
9993 POKE N, INT (L/256) 
9994 POKE N+l, L-256% INT (L/256) 
9995 FOR | = N44 TO N4+3+ PEEK (N+2)4+256% PEEK 
4996 TF PEEK I = 236 OR PEEK I = 237 
THEN PRINT CHRS PEEK T 
9997 NEXT © 
9998 LET N= 1 
9997 GO TO 999: 


= LET L = L+iInc 
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RENUMBER MODEL 3 


9900 REM 

9901 REM Renumber .program 

9902 LET ROR = 100 = LET EOB 
LET INC = 10 = LET NEW 

9903 BORDER 7 = PAPER 7 = INK cLs 

9904 PRINT AT 0, 73 INVERSE 13 "LINE .RENUMBER . MENU 

9905 PRINT AT 2, 173 INVERSE 13 “CURRENT"s AT 2, 2 
INVERSE 13 "NEW" 

9906 PRINT AT 4, 03 “Starting line.#" 


9907 PRINT AT 4, 18+4- LEN ( STRS BOB); BOB 
9908 PRINT AT 6, 0; “Endings..line.#" 
9909 PRINT AT 6, 18+4—- LEN ( STR® EOR); EOR 


9910 PRINT 67 8, 03 "New. .....line.#" 
9911 PRINT AT 8, 18+4- LEN ( STR* NEW); NEW 
9912 PRINT AT 10, Q} "Increment" 
9913 PRINT AT 10, 184+4- LEN ( STR INC)? INC 
9914 PRINT AT 14, 43 INVERSE 15 
“Press .ENTER wif .no.change" 
9915 REM input parameter 
9916 PRINT AT 4, 26: FLASH 13 INVERSE 13 “ > “3 
FLASH ©: INK 2 san" 
9917 INPUT S# IF St “ THEN GO TO 9919 
9918 LET BOB INT ¢ VAL S$+.5) 
9919 PRINT AT 4, 263 "."3 
AT 4, 27+4- LEN ( STR® BOB); BOB 
9920 PRINT AT &, 263 FLASH 13 INVERSE 13 " > "5 
FLASH 03 INK 23 "J..." 
9921 INPUT S$ = IF S# = "" THEN GO TO 9923 
9922 LET EOB = INT ( VAL S$+.5) 
9923 PRINT AT 6, 263 
AT 6, 27+4- LEN ( STR® EOB): EOB 
9924 PRINT AT 8, 263 FLASH 13 INVERSE 13 “ > "= 
FLASH 03 INK 23 aa 
9925 INPUT S* IF st “" THEN GO TO 9927 
9926 LET NEW = INT ( VAL S#+.5) 
9927 PRINT AT 8, 263 “2"3 
AT 8, 27+4- LEN ( STR® NEW); NEW 
9928 PRINT AT 10, 26; FLASH 1; INVERSE 13 " 
FLASH OF INK 23 "ssa." 
9929 INPUT S$ = IF S$ = "" THEN GO TO 9931 
9920 LET INC = INT ( VAL S#+.5) 
9931 PRINT AT 10, 263 "."5 
AT 10, 27+4- LEN ( STR# IND); INC 
9932 FOR I = 1 10 SO + NEXT I 
9933 REM find first .number 
9934 LET N = 235755 
9935 IF 256" PEEK N+ PEEK (N+1) >= BOB THEN 
60 TO 9937 
9936 LET N = (N#+3+ PEEK (N+2)4+2568 PEEK (N#35)+1) = 
GO TO 9935 
9937 CLS = PRINT AT 0, 113 FLASH 13 INK 23 INVERSE 13 
"RENUMBER ING" 
9938 GO SUB 9991 
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9939 PRINT AT O, 113 INK 23 INVERSE 13 
“. .FINISHED ." 
9940 INPUT "OR" tolexit. "24" to 
acopy ascreen..Any.key to .continue."3 S# 


IF S$ = “z" THEN COPY = GO TO [940 
IF S$ <> "" THEN GO TO 99 
INPUT """d"" to.delete .program 


anes eaae nc afnyskeystocexit."§ 


THEN STOP 


< N+ PEEK (N41) >= 9900 THEN 


GO 19 9948 

9947 LET N = iN+S+ PEEK (N+2)+256x" PEEK (N+ = 
so TO 9946 

9948 LET D4 = N42 = LET DL = -4 


9949 LET ni = PEEK (N+Z)+256e PEEK (N43) = 
LET DL = DL+ni+4 


9950 LET n2 = (256 PEEK N+ PEEK (N+1)) = 
IF m2 < 9999 THEN LET N = N+Stni+i = 
GO TO 9949 
9951 LET nb = INT (DL/Z54) = ERT SHA © POKE (DAtID, ni = 


POKE DA, DL—-nis25e = POKE (DA+2). 234 
PRINT AT 21. 0: "Type."? FLASH 13 

"9900, < ENTER > "3 FLASH 03 ".ta.delete”" 
svar 
LET L = NEW 
IF (256* PEEK N+ PEEK (N+1)} > EOR THEN RETURN 
POKE N, INT (L/254) 
POKE N+. i-256% INT (L/256) 
FOR T = N+4 TO N+3+ PEEK (N+2)+256% PEEK (N43) 
IF PEEK I = 236 GR PEEK i = 237 THEN PRINT L: 
CHRS PEEK I 


2997 NEXT 
998 LET N = I = LET L = L+INC 
9999 BO TO 9992 
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Block Line Delete 


Copyright (c) Beam Software 


DESCRIPTION 


This is another UTILITY program which any SPECTRUM 
BASIC programmer will find useful at program developement 
stage. 

If you have read the RENUMBERING program in this 
book, you will notice that this BLOCK LINE DELETE program 
is particularly useful to delete the renumbering program 
at the end of its operation. 

Besides that, this program will delete itself as 
well. 

Again, screen handling techniques are used to input 
starting line block and ending line block to be deleted; 
the program is SMART enough to delete all lines with 
numbers greater than or equal to the starting line block, 
smaller than or equal to the ending line block. So, even 
if your input line block number does not exist, it won’ 
CRASH the program. 

To use the program, first of all, you must enter the 
starting and ending line number of the block you wanted 
to delete. Notice that you can delete one line by having 
the same starting and ending line number. After the 
program finishes its house-keeping function, the program 
will prompt an instruction to ask you delete the line 
block by typing the starting line number followed by 
(ENTER). 


PROGRAM STRUCTURE 


The algorithm used in the program counts all bytes 
from the memory after the line length location of the 
starting line to the end of line character of the ending 
line? This byte-length value will then be POKEd into the 
starting line length location and the first byte content 
of that line will be changed to 234 ( REM ); In effect 
the whole line block is converted into a single REM 
statement. Therefore, re-entering the starting line 
number with empty content will delete the whole line. 


The structure of the program is as follows: 


INPUT LINE BLOCK NUMBER to be deleted 

DISPLAY REFORMATING message 

FIND STARTING LINE MEMORY LOCATION 

REMEMBER LINE LENGTH LOCATION and INITIALISE NEW 
LENGTH 

COUNT byte-length UNTIL END OF BLOCK 

POKE byte-length INTO STARTING LINE LENGTH LOCATION 

DISPLAY FINISHED message 

DISPLAY FINAL message instruction 
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SPECIAL NOTES 


After the REFORMATING process has finished, if you 
don't retype the starting line number with an empty 
string, you can still reference any line within the block 
except the starting line. Any future reference of the 
starting line will delete the whole block. 

It is then advisable to save your program before you 
delete any part of it using this BLOCK LINE DELETE 
program in case you delete the wrong block 

You have to MERGE this program with your own program; 
don't use LOAD as this will destroy your program in the 
LOADing process. 
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BLOCK LINE DELETE 


9973 REM 
S974 REM BLOCK LINE DELETE 
9975 OVER O = FLASH © = FAPER 7 = INK i = CLS 


9976 PRINT AT O, 8; INVERSE 13 "BLOCK .LIWE DELETE" 
9977 PRINT AT 4, "DELETE .INCLUSIVELY* 


9978 PRINT AT 6. 93 “FRKOMJLINE” 
9979 PRINT AT &, 9: “TO. .LINE 
99R0 PRINT AT 6, 193 FLASH 15 “> “: FLASH O35 INK 


INVERSE 13 "su 

9981 INPUT 5% = 1F VAL S$ < 0 OR VAL S# 2 9972 THEN 
SU TO 9981 

9982 LET SUD = INT (¢ VAL S$) 

9985 PRINT AT 6, 197 "“....."3 AT o 
20+4— LEN ( STRS 50D); SOD 

9964 PRINT AT 8, 19% FLASH 13 " > 
INK 23 INVERSE 1: 

9985 INPLT S$ = IF VAL St 
60 TO 9985 

9986 LET EOD = INT ( VAL Ss) 

9987 PRINT AT 8. 193 "....."3 AT Be 

20+4- LEN ( STR* EOD); EOD 

9988 PRINT AT 11, 193 FLASH 13 INK 25 INVERSE 
“REFORMATING* 

9989 LET N = 23755 

9990 IF 256% PEEK N+ PEE (N+1) 
BO TO 9992 

9991 LET N = 


OR VAL S$ > 9972 THEN 


SOD THEN 


PEEK (N+2)4+256 PEEK (M+3)+1) = 


9992 LET DA = LET DL = -4 

9993 LET ml = PEEK (N+2)+256% PEEK (N+5) = LET 
DL = DL+nI+4 

9994 LET m2 ok PEEK N+ PEEK (N41) IF 


n2 < EOD THEN LET N = N+S+ni+1 = GO TO 9992 

9995 IF nZ > EOD THEN LET DL = DL-ni-4 

9996 LEY ni = INT (OL/256) = POKE (DAt1), ni = POKE 
DA, DL—n1#256 = POKE (DA+2). 

999M PRINT AT 11, 10; " 
AT 11, 123 INK 23 

9998 PRINT AT 15 


9999 STOF 


INVERSE 13 "FINISHED" 
0; “TYPE."$ FLASH sobs 
< ENTER > “i FLASH OF ".TO.DELETE BLOCK" 
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In a few programs in this book we refer to machine language 
programs as being more efficient, and in some cases we show 
you examples of how writing programs in machine language can 
speed up execution time, and also save on memory. 


You may therefore be asking yourselves what is the machine 
language these notes refer to? What is the difference between 
machine language and BASIC? 


To set the scene correctly, you must accept first of all 
that the Spectrum does not really ever execute your BASIC 
program. In fact, the chip that does all the work, the 280, 
doesn't even understand BASIC. All it can understand is its 
own set of instructions; and limited instructions at that. 


The range of instructions the 280 understands comprises of 
such simple things as add two numbers, subtract, compare, 
take a number from here and put it there, and so on. 
Admittedly most things can be achieved with these simple 
functions. 


But even slightly more complex functions, simple by our 
standards, such as multiplication and division cannot be 
executed as such. You have to write a program to perform 
these tasks. 


Your Spectrum computer comes inbuilt with a machine 
language program. This progam is stored in a chip inside the 
computer so that it does not have to be loaded from tape each 
time you want to use it. This program is in the ROM chip (ROM 
stands for Read Only Memory, which means you can't change 
it). 


The #function of this program is to take the information you 
give the computer via the keyboard and perform the 
instructions necessary to obtain the result you desire. A 
simple BASIC line may require hundreds of lines of machine 
language program to do its task. 


You can understand that BASIC while being a much more 
efficient means of programming (one line instead of hundreds) 
probably results in slower execution of programs. 


The program provided here does not pretend to teach you 
machine language. Whole books have been devoted to this 
subject, and we can certainly recommend two of our other 
titles if you are interested in this topic: 
* Spectrum Machine Language For The Absolute Beginner 
* Understanding Your Spectrum by Dr. Ian Logan 


The structure of machine language programs: 


Machine language programs are structured differently from 
BASIC programs in several ways. Some of these are important 
in this context: 


* There are no variables 
There is no direct equivalent to LET lives = 3 
All there is as far as the 280 is concerned are 
memory locations. 
If you check your Spectrum manual you will find 
on pages 173 - 176 a list of memory locations used 
as variables by the program in the ROM. 
You can change the value held in those locations 
to achieve different effects, and to signify 
different things, but that is the limit of the 
analogy to variables. 


* There are no line numbers 
When executing instructions the 280 will go from 
one instruction to the next, exactly as it finds 
them. 
Admittedly there are instructions that allows you 
to instruct the 280 to GOTO another instruction or 
to GOSUB another set of instructions, but these 
GOTOs and GOSUBs are specified in terms of memory 
locations also ~ eg. one instruction might be "GOTO 
the instruction at memory location 16". 
This means that in general, programs are designed 
for very specific memory locations. 
Some programs however are relocatable, and we 
discuss these later. 


* All numbers used are either in the range 0 - 255 or 
0 — 65535, (depending on whether they occupy one 
memory location or two!) 
In other words the number occupying a single memory 

» location can only be in the range 0 - 255. Because 

of this a special notation has been developed, 
that efficiently describes numbers in the range 
0 - 255. 
This is called Hex (or hexadecimal) notation. 
This book is not the place to explain this notation 
but you will find a conversion table from Hex to 
decimal in the Spectrum manual on pages 185 - 188. 


What is PEEK and POKE? 


Now that you have a slightly better understanding of way 
the Spectrum functions, you understand that there can be no 
simple equivalent to LET a = b. 


The closest equivalent is to think of a and b not as 
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variables, but as the contents of different locations. Given 
this equivalent, how can we find out what are the different 
memory locations? 


The BASIC instruction PEEK lets us do exactly what its name 
suggests — we can PEEK into a memory location to find out 
what is there. Furthermore, a PEEK does not disturb what is 
there. We can PEEK to our hearts' content without doing any 
damage or disturbing anything. 


So we can now at least find our what b is. Remember though 
that looking in a single fiemory location will give an answer 
in the range of 0 to 255 only. 


How can we now change the contents of another location? We 
can POKE it. This instruction is again very much like what it 
sounds. You take what you want to fill the memory location 
with, and you POKE it in, As well, just as the name suggests, 
this is a rather rude and final instruction - you POKE a 
value in and it stays there. The potential damage you can 
wreak in programming terms is immense. 


Do not be hesitant to use this instruction however, and to 
experiment with it. The worst you can do is te crash your 
program, or to have the Spectrum reset itself. There is no 
way you can damage the computer itself by POKEing anything 
anywhere. 


Remember though that you can only POKE values in the range 
0 - 255, 


Hex notatior 


You may have had a look at pages 183 - 188 of your Spectrum 
manual and seen the column of Hex numbers. 


Gertafn things about this notation stand out: 
Each number is always 2 characters 
Only the numbers 0 - 9 and letters A - F 
are allowed. 


These two points are in fact the major benefits of Hex 
notation. 


Each of the letters A to F represents the numbers 10 
through to 15. 


To convert from Hex notation to decimal, take the number in 
the ‘tens column’, multiply it by 16 and add the number in 
the ‘ones column’, Thus: 

OA Hex = 10 decimal 
11 Hex = 17 decimal, etc. 
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The Machine Code Monitor Program: 


This program enables you to examine the contents of any 
memory location in the Spectrum, whether in the ROM or in the 
RAM (that's the ‘normal’ memory, including the screen, 
program area, variables, free memory and user defined 
graphics area). 


It is not the most efficient program if you wish to POKE a 
lot of data into a memory area, but it is very good if you 
wish to examine any part of memory and modify it. To enter a 
lot of data into memory see some of the other programs in 
this book, such as in the Draughts program. 


Each line of the display shows the contents of 10 memory 
locations, with the contents shown in Hex format. You can use 
the arrows keys (Shift 6 to B) to move the cursor around. 


Pressing any key other that the arrow keys will allow you 
to change the contents of that memory location. The value you 
enter must be in Hex format. Remember that only the numbers 0 
— 9 and letters A - F are allowed and that a valid number is 
made up of exactly two characters. 


Some interesting exercises 


* Try to modify the contents of memory locations in the ROM. 
(Addresses below 16384). What happens? 


* Try to modify the contents of memory locations in the range 
22528 to 23295. 

This is the "attributes" area, which defines what colours 
show up on the screen. You cannot damage the program or the 
computer. 


* Try to modify the contents of memory locations 16384 to 
22527. 

This is the screen display memory area. 

Remember that each character space on the screen requires 8 
memory locations in the screen display area to define it. The 
eight memory locations are not consecutive. Can you find out 
how these 8 memory locations are related to each other? 

You cannot damage the computer or the program doing this. 


Relocatable Machine Language Program 


There are some machine language programs which are said to 
be relocatable. This means that it is not important where in 
memory they start. 


Such programs are obviously very useful when used as 
adjuncts to BASIC programs, because it means we can POKE them 
anywhere there is free space. 
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One example is the screen movement routine in the 
Eliminator program contained in this book. 


Here we give you another useful relocatable machine 
language program, this time a renumbering program. You will 
note that compared to the BASIC renumber programs listed 
elsewhere in this book, the machine language version is much 
shorter (only 27 bytes long!) and you will find it is also 
very much faster. 


To "load" the program into memory, we need a short BASIC 
program as listed, or you could enter the bytes into memory 
through the machine code monitor program. (The Hex values are 
in the left column of the assembly listing given.) 


Once the numbers have been POKEd into memory it is a good 
idea to save the program on tape, using the SAVE '"" CODE 
command. 


To "run" a machine code program, the USR function is used, 
such as PRINT USK 32500, or LET v = USR 32500. The number 
after the USK must be the address where the machine code 
program is. 


Be sure to always place your machine code program in a area 
that cannot be overwritten — eg above CLEAR, or in the user 
defined graphics area, etc. 


The machine code program given here renumbers all lines, 
starting with line 100 and incrementing in steps of 10. You 
can change the starting number by changing the 5th number 
(currently 90 = 100 - 10) and the step by changing the 13th 
number (currently 10). Note that it does NOT renumber GOTOs 
or GOSUBs. 


11 Ca Sc LD DE, SCCAH tart of BASIC 

21 5A 00 LD HL, 90 jstart no. — step 
3 nxtline INC DE 

1A LD A, (DE) jwhat's there? 

FE 28 cP 28H send of line ? 

Do RET NC f£ not, finished! 
01 0A 00 LD BC, 10 ystep size 

09 ADD HL, BC jnew line no. 

EB EX DE, HL emporary swap 

72 LD (HL), D put new line no in 
23 INC HL 

3 LD (HL), B 

23 INC HL jget length of line 
4E LDC, (HL) sput it in BC 

23 INC HL 

46 LD B, HL 

09 ADD HL, BC sposn of end of line 
EB EX DE, HL send of swap 

18 EB JR nxtlin jdo next line 
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MACHINE CODE MONITOR 


100 
110 


120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
3350 
340 
350 


340 
S00 


510 
400 
410 
620 
430 
640 
650 
660 
470 
480 
690 
700 
710 
720 


730 
740 
1000 
1010 
1020 


PRINT INK 73 PAPER 23 AT 0, 03 “MACHINE .CODE 
aMONITOR ..222.4" 

INPUT "Please.enter .starting.address 
aaa(inadecimal) ."3 5 

LET s = 10% INT (5/10) 

LET x = 0 + LET y =0 

GO SUB 1000 

PRINT INK 73 PAPER 23 AT 0, 03 "MACHINE .CODE 
aMONITOR ss 2s002" 

PRINT OVER 13 FLASH 13 AT 3+2ex, S+38y3 "4." 

LET a& = INKEYS 

IF CODE a# < 12 AND CODE a$ > 7 THEN GO TO 600 


IF CODE a$ = © THEN GO TO 170 
INPUT “CHANGE .BYTE .VALUE.TO. (Hex) "3 a& 
IF LEN a <> 2 THEN GO TO 160 

GO SUB 500 

IF v < 0 OR v > 15 THEN GO TO 170 
LET h =v 

LET a& = a$(2) 

60 SUB 500 

IF y < © OR v > 15 THEN GO TO 170 
LETL =v 

LET v = 168h+L 


POKE st+i0%x+y, v 

PRINT OVER 13 FLASH 03 AT 3+2#x, 3+3¥y3 "aa" 

IF y = 9 THEN GO SUB 1000 

LET y = y+ 

IF y > 9 THEN LET y = 0 = LET x = x41 

IF x < 10 THEN GO TO 140 = REM else.falls 
athrough .to.next .page 

60 TO 730 

LET v = CODE a$—48-78( CODE as > 64) 
—32%( CODE a$ > 96) 

RETURN 

PRINT OVER 13 FLASH 03 AT 3+2%x, 34+34y3 “aa” 


GO TO 540+10% CODE as 

LET y = y-1 = GO TO 660 

LET y = y+1 + 60 TO 700 

LET x = x+1 + GO TO 730 

LET x = x-1 = GO TO 480 

IF y >= 0 THEN GO TO 160 

LET y = 9 = LET x = x-1 

IF x 0 THEN GO TO 140 

LET s = s-10 + CLS = GO TO 130 
IF y < 10 THEN GO TO 160 


LET y = O = LET x = x+1 

IF x < 10 THEN GO TO 140 = REM else falls 
athrough .to.next page 

IF x = 10 THEN CLS + LET 5 = st+10%x 

60 TO 140 

IF s < 0 OR s > 65530 THEN GO TO 110 

PRINT AT 2+2%%, 03 s+10%% = PRINT TAB 23 

FOR i = s#10%#x TO s+108x+9 


GO TO 130 


1030 IF i > 65535 THEN LET i = s+10¥L+9 = GO TO 
1040 LET v = PEEK i = LET h = INT (v/16) = 
LET L = y-168h 
1050 PRINT "“."+ CHRS (h+48+7%(h > 9))+ 
CHRS (L+484+78(L > 9095 
1060 NEXT i 
1070 RETURN 


Machine code Renumber 


100 CLEAR 32500 = LET a = 32500 

110 READ n POKE a, n 

120 LET a = ati = GO TO 110 

130 DATA 17, 202, 92, 33, 90, O, 19, 26, 254, 
208, 1, 10, 0, 9, 235, 114, 35, 115, 35, 
35, 70, 9, 235, 24, 235 

140 FOR i = 0 TO 26 

150 PRINT PEEK (32500+1)3 "."3 

160 NEXT i 


150 


40, 
78, 


Payrol 


Copyright (c) Beam software 


DESCRIPTION 


This payroll worksheet will calculate employee income 
and produce a check register that may be used to produce 
paychecks. 

The register begins with the option of 


EITHER entering the NAME of the employee and his/her 
hourly rate, the overtime factor. An option is 
given if you want to save these EMPLOYEE 
DETAILS onto tape 


OR you can restore the stored EMPLOYEE DETAILS 
from previously saved tape 


At the end of each pay period, you enter each 
employee's hours ( regular and overtime ). The 
MINI-PAYROLL model will calculate gross income for all 
employee. 


This PAYROLL model can only cater for a maximum of 18 
employees. But for any small size business operation, 
this will surely save either you or your secretary a lot 
of time in calculating wages. 


‘The whole model is screen driven, with appropriate 
flashing cursor indicating which field the program is 
expecting to receive. All numeric data input or output 
will be right justified. 

At the end of all input and calculation, any key 
press will bring you to the next major three screens of 
the model in the following order: 

: Employee details 
Hourly payroll register 
Wages payroll register 


The wages calculation is correct to the nearest 


pence. 


PROGRAM STRUCTURE 


This program is one of the three SPECTRUM financial 
models in this book. One major difference of this type of 
program from games or utilities is that INPUT/OUPUT must 
be done in a USER FRIENDLY way. In term of processing, 
you will find that it is mainly string manipulation and 
calculation, 
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The structure of the program is as follows: 


INITIALISATION 


INITIALISE ENTER MODE OF THE THREE SCREENS 
INITIALISE DISPLAY VARTABLES 


EMPLOYEE DETAILS: 


TF 'E' OR 'e' ( enter new information ) 
input number of employee ( between 1 and 18 ) 
define dimension of following ARRAYS 
E$ Employee details array 
R$ Regular hours array 
O$ Overtime hours array 
G$ Gross income array 
IF 'R' OR 'r! ( retrieve information ) 
input EMPLOYEE DETAIL from tape 
define dimension of above arrays except Ef 
SET UP EMPLOYEE DETAIL SCREEN 
IF RM MODE IS ENTER (rm=0) 
set rm=1 
input employees name and hourly rate 
input overtime factor 
save EMPLOYEE DETAILS options 
return 
REDISPLAY EMPLOYEE DETAILS 
option of sending the display to printer 
return 


PAYROLL hourly register 
SET UP PAYROLL HOURLY REGISTER SCREEN 
TF PM MODE IS INPUT (pm=0) 
set PM mode to display (pm=1) 
input regular and overtime hours 
return 
REDJSPLAY PAYROLL HOUR REPORT 
option of sending the display to printer 
return 


PAYROLL gross income register 


IF PR MODE IS CALCULATE (pr=0) 
set display mode (pr=1) 
initialise TP (total gross wages) 
calculates and adds up all employee wages and 
enters into corresponding arrays 

SET UP PAYROLL INCOME REPORT 

REDISPLAY PAYROLL INCOME REPORT 
option of sending the display to printer 
return 
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MAIN LOOP 
EMPLOYEE DETAILS 

: PAYROLL hourly register 
PAYROLL income register 
GOSUB Tl: 
GOTO) LI: 


L 


SPECIAL NOTES. 


The EMPLOYEE DETAILS array is structured as follows: 
* first record 
1-5 number of employee records in the 
array 
16- 21 overtime factor 
¥* following records 
1-15 name of employee 
16- 21 hourly rate of the employee 


You will notice that there are three major arrays 
each having mainly two tasks to performed, namely, 
display and input/calculation. 

To choose which task to be performed, the program 
first sets three mode variables to input/calculation (ie 
0) at the beginning and these in turn will be set to 
display (ie 1) mode after each routine gone through their 
input /calculation task. 

From this time onward, further re-entry to the array 
will result in the performing of display task. 


Routine 3000 performs the task of the conversion of 
any string numeric input with number of digits before the 
decimal point specified to a numeric string of that 
specified number of digits before the decimal point and 
two digits after the decimal point. 
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PAYROLL 


100 
110 
120 
130 

1000 

1010 

1020 

1030 

1040 


1050 


1060 


REM PAYROLL 

REM mini spayroll .program 

LET rm = 0 = LET pm = rm 
REM set .enter .mode 

OVER 0 = PAPER 7 = INK 1 = FLASH © = CLS =: 
GO TQ 9000 

REM 

REM initialise.routine 

CLS = PRINT AT O, 63 INVERSE 13 INK 15 
“EMPLOYEE . INFORMATION” 

PRINT AT 6, 13 INK 13 "ENTER.new 
information .————.E" 

PRINT AT B, 153 INK 13 “RETRIEVE. .information 

— Rr" 

PRINT AT 15, 83 INK 15 “Press."""3 FLASH 1 
"E"; FLASH 03 aor FLASH 13 "R35 
FLASH 0; " 

LET XI SHI Ok = INKEY$ + IF k# <> “E" AND 
k@ <> "R" AND k# <> "e"™ AND k# <> 
THEN GO TO 1060 

IF k& = “e" OR k# = “r“ THEN LET k&® = CHRS 

( CODE k$-32) 

PRINT AT 15, 153 INK 13 INVERSE 15 " 
AT 15, 225 "R" = PRINT AT 18, 125 

IF k® <> "R" THEN GO TO 1150 

PRINT INVERSE 13 INK RESTORE" 5 LET rm = 

INPUT “Press. < space > < ENTER > .when.ready 
"3 ke 

IF k# <> "." THEN GO TO 1110 

LOAD “minipay" DATA E&() 


S 
m 
4 
2 
et 

" 
= 
3 


LET NE = VAL ES(1, 1 TO 2) = LET F = VAL 
E$(1, 15 TO 21) = GO TO 1190 
PRINT INVERSE 13 INK 23 "ENTER." = PRINT 


AT 21, 23 INK 13 INVERSE 13 FLASH 13 
"> "3 FLASH 03 INVERSE 03 
"no. .0f zemployee. (14-118). 24"5 
INVERSE 13 "44" 

INPUT NE = IF NE > 18 OR NE < 1 THEN 
GO TO 1160 

PRINT AT 21, 303 "i. 
INVERSE 13 NE 

DIM E®(NE+1, 21) 

DIM R®(NE, 4) 

DIM O$(NE, 6) 

DIM GS(NE, 8) 

FOR I = 1 70 75 = NEXT I 

INK 1 = PAPER 7 = CLS = PRINT AT 0, 83 
INVERSE 1 EXI SHI 0; "EMPLOYEE .DETAILS" 

PRINT AT 2, 23 INVERSE 13 "NAME .OF .EMPLOYEE" 5 
AT 2, 213 “HOURLY .RATE" 

IF rm = 1 THEN GO TO 1500 

REM enter .employee.details 

LET rm = 1 


CHR$ 8; CHR$ 8} INK 13 


FOR I = 2 TO NE+1 
LET ES(I, 1 TO 15) = “." = LET ES(I, 16 TO 21) 
= "oooa00 


LET Ln = I+3-2 

PRINT AT Ln, 15 = IF I > 10 THEN PRINT AT Ln, 03 

PRINT I-13 FLASH 13 INVERSE 13 “> "3 AT Ln, 35 

FLASH 03 INK 23 "sseseneenseanne” 
INPUT S$ = IF S® = “%" THEN RETURN 
LET ES(I, 1 TO 15) = S# = PRINT AT Ln, 23 
“2°? Est, 1 TO 15) 

1350 PRINT AT Ln, 203 INVERSE 13 FLASH 13 "> "5 
AT Ln, 235 FLASH 05 INK 23 “sssnan” 

1360 INPUT S# = IF VAL S# < 0 THEN GO TO 1360 

1370 LET ns = 3 = GO SUB 3000 + REM input anumeric 

string 

1380 PRINT AT Ln, 203 “a"$ AT Ln, 233 “sesaea"i 
AT Ln, 233 S# + LET E#(I, 16 TO 21) = Se 

1390 NEXT I 

1400 PRINT AT 21, 93 INVERSE 13 “Overtime.factor" 
AT 21, 253 FLASH 13 " > "3 FLASH 05 INK 25 
QT 215 274,“ cxaan” 

1410 INPUT S$ = IF VAL S$ < O THEN GO TO 1410 

1420 LET F = VAL S$ * PRINT AT 21, 253 “sssena"3 
AT 21, 253 F + LET E#(1, 16 TO 21) = S$ 

1430 LET ES(1, 1 TO 2) = STR® NE 

1440 FOR I = 1 TO 50 = NEXT I 

1450 INPUT “Save EMPLOYEE .DATA.?.(yes.or ana) "3 k# 

1460 IF k# = THEN GO TO 1450 

1470 IF k#(1) = "y" OR ke = 
DATA E#() = RETURN 

1480 IF k$(1) <> AND k#(1) <> 

1490 RETURN 

1500 REM redisplay .employeesrecord 

1510 LET NE = VAL (E$(1, 1 TO 2)) = LET F 
VAL (ES(1, 16 TO 21)) 

1520 FOR I = 2 TO NE+1 

1530 LET Ln = 143-2 

1540 PRINT AT Ln, 23 E€(I, 1 TO 15)3 AT Ln, 253 
Es(I, 16 TO 21) 

1550 NEXT I 

1560 PRINT AT 21, 93 INVERSE 1; “OVERTIME .FACTOR" 

1570 PRINT AT 21, 253 F 

1580" LET k$ = INKEY$ = IF k# = "" THEN GO TO 1580 

1590 IF k# = "z" THEN COPY = 6O TO 1580 

1600 RETURN 

2000 REM 

2010 REM enter/display payroll .hour 

2020 CLS = PRINT AT ©, 83 INVERSE 13 "PAYROLL .REGISTER" 

2030 PRINT AT 1, 173 INVERSE 13 "----.HOURS.—— 

2040 PRINT AT 2, 03 INVERSE 13 “EMPLOYEE"3 AT 2, 195 
C § AT 2, 273) “oT” 

2050 IF pm = 1 THEN GO TO 2500 

2060 LET pm = 1 = LET TR = 0 = LET TO = TR 

2070 FOR I = 2 TO NE+1 

2080 LET Ln = I+3-2 

2090 PRINT AT Ln, 03 E®(I, 1 TO 15) 

2100 PRINT AT Ln, 163 FLASH 13 " > "3 FLASH ¢ 
IN 2s Alea ae 

2110 INPUT ni = IF ni < O THEN GO TO 2110 

2120 LET S$ = STR# ni = LET ns = 3 = GO SUB 3000 

2130 PRINT AT Ln, 163 "4"3 S$ = LET TR = 

TReni = LET RS(I-1) 


THEN SAVE "minipay” 


THEN GO TO 1450 


INVERSE 


s¢ 


PRINT AT Ln, 243 FLASH 13 EXIT SHI 0” > "3 
FLASH 03; INK 23 INVERSE 13 “......" 

INPUT ni = IF ni < 0 THEN GO TO 2150 

LET S$ = STR$ ni = LET ns = 3 = GO SUB 3000 

PRINT AT Ln, 245 "."3 S& 

LET TO = TO+nl = LET O$(I-1) = S# 

NEXT I 

LET S# = STR$ TR = LET ns = 4 = GO SUB 3000 


PRINT AT 21, 83 INVERSE 15 “TOTALS; AT 21, 163 


INVERSE 0; S* 

LET S$ = STR® TO = GO SUB 3000 

PRINT AT 21, 24; S$ 

RETURN 

REM display.hour .report 

FOR I = 1 TO NE 

LET Ln = 143-1 

PRINT AT Ln, 03 ES(I+1, 1 TO 1505 AT Ln, 173 
R$(I, 1 TO 6)3 AT Ln, 255 OCI, 1 TO &) 

NEXT I 

PRINT AT 21, 83 INVERSE 1; "TOTALS" 

LET S$ = STR$ TR = LET ns = 4 + GO SUB 3000 

PRINT AT 21, 163 S$ 

LET S$ = STR$ TO = GO SUB 3000 

PRINT AT 21, 245 S* 

LET k& INKEY@ + IF k# = "“" THEN GO TO 2600 

IF k* z" THEN COPY = GO TQ 24600 

RETURN 

REM 

REM string.input sof .value 

LET Tt STR® ( INT VAL S#) 


FOR J = 1 TO (ns- LEN T#) = LET T# = "."+T$ = NEXT 


LET U® = STR® ( INT (( VAL S$ VAL T$)#100+.5)) 


Ts = Ts+"." 

IF VAL U® = © THEN GO TO 3090 

FOR J = 1 TO LEN US = IF US(J TO J) = "." THEN 
60 TO 3080 

NEXT J 


LET Us = US(1 TO (J-1)) 

IF VAL U® < 10 THEN LET US = "o"+us 

LET S$ = TS+Us 

RETURN 

REM 

REM calculate/display.pay 

IF pr = 1 THEN GO TO 4100 

LET pr =, = LET TP =o 

FOR I = 1 TO NE 

LET nt = ( VAL _R#(T)+ VAL O$(1)#F)#( VAL 
Es(I+1, 16 TO 21)) 

LET S$ = STR# ni = LET ns = 5 = GO SUB 3000 

LET GS(I, 1 TO 8) = 5% 

LET TP = TP4ni 

NEXT I 

cLs 


PRINT AT 0, 83 INVERSE 13 

“PAYROLL .REGISTER™ 

PRINT AT 2, 03 INVERSE 13 “EMPLOYEE 
"GROSS.PAY"3 AT 3, 195 "*" 

FOR I = 1 TO NE 


123 


AT 2, 213 


4130 
4140 


aiso 
4140 


4170 
4180 
4190 
4200 
4210 
3000 
9010 
9020 
9030 
7040 
9050 
7060 


LET Ln = 143-1 

PRINT AT Ln, OF ES(I4+1, 1 TO 15)3 AT Ln, 225 
Ger, 1 TO 8) 

NEXT I 

PRINT AT 21, 7 
AT 21, 193 


INVERSE 13 "TOTAL .WAGES"; 
""; INVERSE 03 


LET S$ = STR$ TP = LET ns = 6 = GO SUB 3000 
PRINT "."5 S$ 

LET k$ = INKEY# = IF k@ = "" THEN GO TO 4190 
IF k# = "z" THEN COPY = GO TO 4190 

RETURN 

REM 


REM mainsroutine 

GO SUB 1000 + REM initialise 

GO SUB 2000 = REM payroll. register 

GO SUB 4000 = REM display/calculate.pay 
GO SUB 1230 = REM payroll .record 

GO TO 9050 


Sales Analysis 


Copyright (c) by Beam Software 


This program uses a company's sales history over a number 
of years to determine what seasonal fluctuations occur in 
that business's sales, and what the overall rrend has been 
for that number of years. 


The results of this program would be useful to any company 
or sales manager of any company whose business is affected by 
seasonal fluctuations. For example, in book publishing, about 
25% of annual sales occur in November and December. 


The information required by the program is the sales value 
in each quarter for as many years as are available. As 
written, the program can only accept information for a 
maximum of 18 years. 


After this information has been entered, the program will 
caleulate seasonal ratios by dividing the actual sales by the 
average quarterly sales for all years. 


The average of each quarter's ratios over the years 
produces the seasonal index. 


The program will also chart in graph form the annual sales 
of the company, providing immediate visual information about 
the company's growth. 


Programming notes: 


As with the other business programs presented in this book, 
a high emphasis has been placed on the interaction between 
the user and the computer. It is generally true that business 
programs must be able to be understood and be useful to 
people who have no knowledge of computing. 


Screen-driven data entry is the name given to the 
input/output used in this program. The main benefit of this 
is that the user has immediate verification of what he has 
entered and the amount of information entered. 


The results are displayed on two screens - one containing 
the actual sales, and the other the seasonal indeces. 
Pressing any key allows you to switch back and forth between 
the two screen. An additional option allows sending the 
screen display to the printer. 


The graphical display makes use of the Spectrum's PLOT and 
DRAW Facilities, The sales history screen is used, with the 
only the year and the average quarterly sales left on the 
screen. By using the minimum and maximum sales over the years 
to define the axis scales, the graph makes use of the entire 
display area available. 
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SALES ANALYSIS 


100 
110 
120 


2030 


2040 
2050 
2060 
2070 
2080 
2090 


2100 
2110 


2120 
2150 
2140 
2150 


REM 

REM SEASONAL . INDEX 

BORDER 7 ? PAPER 7 = INK 1 = FLASH © = OVER 
© = CLS 130 GO TO B000 

REM 

REM input .year srange 

PRINT AT 0, 93 INVERSE 13 “SEASONAL .INDEX" 

PRINT AT 4, 03 “SALES HISTORY (inclusive) " 

PRINT AT 7, 63 "“FROM.YEAR" 

PRINT AT 10, 4) “TO...YEAR" 

PRINT AT 7, 173 FLASH 13 INVERSE 13 
FLASH 03 INK 23 INVERSE 13 “soso 

INPUT S$ = LET yl = INT ( VAL S®) = IF 
yl < 1900 OR LEN ( STR® yl) > 4 THEN 
GO TO 1070 

PRINT AT 7, 173 “a"i yl 

PRINT AT 10, 173 FLASH 13 INVERSE 15 "> "3 
FLASH 03 INK 23 INVERSE 1; "...." 


INPUT S# = LET y2 = INT ( VAL S$) = 
IF y2 < 1900 OR LEN ¢ STR# y2) > 4 OR 
y2 < yl OR y2 > yl+17 THEN GO TO 1100 
PRINT AT 10, 173 "a"3 y2 


LET NY = y2-y1+1 

DIM Y#(NY, 4) = REM year 

DIM H&(NY, 4, 4) = REM sales.history 
DIM AS(NY, 7) = REM annual .avrasales 
DIM RS(NY, 4, 6) = REM ratios 

DIM D$(4, 4) = REM seasonal index 
DIM @(4) = REM sum.sof .quarter sratios 


DIM CCNY) = REM drawscurve.d 

DIM CCNY) = REM drawscurve.dx 

DIM C(NY? = REM drawscurve.dx 

FOR I = yi TO y2 = LET Y$(I-yi+1) = STR I = 
NEXT I 

RETURN 

REM 


REM input .sales history 


CLS = PRINT AT ©, 10; INVERSE 13 "SALES.HISTORY" 


PRINT AT 1, 263 INVERSE 15 "AVR."3 AT 2, 03 


INVERSE 13 "YEAR"; AT 2, 5; INVERSE 13 “QTRI" 
"QTR2"5 AT 2, 153 INVERSE 15 “QTRE 


AT 2, 103 
AT 2, 20; INVERSE 13 "OTR4 
INVERSE 13 "SALES" 

IF hm = 1 THEN GO TO 2500 

FOR I = 1 TO NY 

LET Ln = 143-1 = PRINT AT Ln, 03 Y#(T) 

LET hp = 4+ LET ts =0 

FOR J =1 704 

PRINT AT Ln, hp3 FLASH 15 " > "3 INVERSE 15 
FLASH 05 INK 23 "ssa." 

INPUT S$ = IF VAL S$ < O THEN GO TO 21 

LET ni = INT ( VAL S$+.5) = LET ts = tstmi = 
LET S# = STRS ni 

LET Z@ = “...2" * LET 2#(5- LEN S$ TO ) = St 

PRINT AT Ln, hps “a"3 7% 

LET H8(I, J) = 7 = LET hp = hp+S 

NEXT J 


AT 2, 263 
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2160 
2170 
2180 
2190 
2200 
2210 
2500 
2510 
2520 
2530 


2540 
2550 
2560 
2570 
2580 
2590 
3000 
3010 
3020 
3030 


3040 
3050 
3040 
3070 
3080 
3090 
3100 
S110 
3120 


LET S# = STR® (ts/4) + LET ns = 4 = LET nd = 2 
GO SUR 7000 
PRINT AT Ln, hp+i3 S¢ 


LET AS(I) = S# 

NEXT I 

LET hm = 1 = GO TO 2550 
REM 


REM display 

FOR I = 1 TO NY 

PRINT AT I+3-1, © 3 HS(I, 105 * 
HO(T, 205 "A"5 HOCL, 35 “As HSCT, 495 


"A"3 ASCT) 
NEXT I 
INFUT "Copy .this.to.printer (y.or sn ks 
IF k# = "y" OR k# = "Y" THEN COPY = GO TO 2550 
IF kt N"“ OR EXIT SHI Ok# = "n" THEN RETURN 
IF k& —E" THEN CLEAR = STOP 
GO TO 2550 
REM 


REM calculate.ratios 
CLS = PRINT AT 0, 93 INVERSE 13 “COMPUTED,.RATIOS" 


PRINT AT 2, 03 INVERSE 13 "YEAR"3 AT 2, 63 "OTRI"S 


AT 2, 133 “QTR2"5 AT 2, 203 "“QTR3"3 AT 2, 273 
“OTRa" 

PRINT AT 21, 03 INVERSE 13 "INDEX" 

IF cm = 1 THEN GO TO 3500 

PRINT AT 1, 113 FLASH 13 INK 33 "CALCULATING" 


FOR I = 1 TO 4 = LET Q(T) = 0 = NEXT I 
FOR I = 1 TO NY 

LET ni = VAL AS(I) 

FOR J = 1704 

LET n2 


VAL He(I, J) + LET n3 = n2/ni 
LET S$ = STR§ n3 ¢ LET ns = 1 + LET nd = 4 
GO SUB 7000 
LET RS(I, J) = S$ = LET Q(J) = O(J)+ VAL SS 
BEEP .03, 12 


NEXT J 

NEXT I 

FOR I =1 704 
LET ni = Q¢(1)/NY 


LET S$ = STR# mi = LET ns 

GO SUB 7000 

LET D#(I) = S¢ 

BEEP .0S, 24 

NEXT I 

PRINT AT 1, 113 "4"3 INVERSE 13 INK 33 
“FINISHED"; INVERSE 0; INK 13 ".." 

LET cm = 1 

NEXT I 

PRINT AT 1, 113 "2" INVERSE 13 INK 33 
"FINISHED"$ INVERSE 03 INK 13 "4" 

LET cm=1 

REM 

REM redisplay.ratios/index 

FOR I = 1 TO NY 

PRINT AT I+3-1, OF YS(ID5 “A"3 RECT, 105 "485 
RECT Ze) HaNs RECT, 395) O45 BSCE, |) 

NEXT I 

PRINT AT 21, 53 D#(1)5 


" 


LET nd = 4 


DS(2)5 "4"5 DESIG 


3570 
3580 
3590 
3400 
3610 
4000 
4010 
4020 
4030 


4040 
4050 
4060 


4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4140 
4170 
4180 
4190 


4200 
4210 
4220 
4230 
4500 
4510 
4520 
4530 


4540 
4550 


4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
7000 
7010 
70350 
7040 
7050 
7060 


7970 


D$(4) 


INPUT “Copy .this.to.printer (ysoran) "5 k& 
IF ks y" OR k& “ THEN COPY = GO TO 3570 
IF k& "OR k& = "NY THEN RETURN 

IF k# = “E" THEN CLEAR + STOP 

GO TO 3570 

REM 

REM plot .sales.graph 


CLS = PRINT AT 0, 103 INVERSE 13 “SALES.GRAPH" 

PRINT AT 2, INVERSE 1; "YEAR"; AT 1, 263 
INVERSE 13 “AVE; EAI SHI © AT 2, 263 INVERSE 
"SALES" 

IF gm = 1 THEN GO TO 4500 

LET gm = 1 

PRINT AT 2, 123 INVERSE 13 INK 335 
FLASH 13 "PLOTTING" 

LET max = INT (¢ VAL AS(1)) = LET min = max 

FOR I 2 TO NY 

LET ni = INT ( VAL AS(I)) 

IF ni > max THEN LET max 

IF ni < min THEN LET min 

BEEP .05, 0 

NEXT I 

LET ran = max-min 


LET INT (ran/152+.5) 

LET 40 

FOR I = 1 TO NY 

LET mi = INT ¢ VAL AS(T)) = LET nx = INT 
((n1-min) /rat+.5)+40 

LET C(I) = nx-ox = LET ox = nx 


BEEP .05, 24 
NEXT I 

PRINT AT 2y 123 “sacaaona” 
REM 

REM redisplay.sales.curve 


FOR I = 1 TO NY 

LET Ln = I+3-1 + PRINT AT Ln, 03 Y#(I)5 AT Ln, 253 
A$(1) 

NEXT I 

PLOT 40, 155 
DRAW 0, —155, 

PLOT 404+0(1), 147 


DRAW 151, © = PLOT 40, 155 = 


FOR I = 2 TO NY 
DRAW C(I), -8 

NEXT I 

INPUT “Copystosprinter.(ysoran)."F k& 

IF k& "OR ke THEN COPY = GO TO 4600 
IF kt OR k¢ THEN RETURN 

IF k# = "E" THEN STOP 

GO TO 4600 

REM 

REM number .trimming 

LET X$ = ".oncaaanaa” ¢ REM 10.spaces 
LET W& = "1000000" = REM 6.decimal .places 
LET T$ = STR# ( INT VAL S#) 

IF ns > © THEN LET T® = X#(1 TO ns— 


LEN T$)4+TS#"," = 
GO TO 7080 
LET Ts:= *.. 


13 


7080 LET n3 = VAL wel TO nd+1) 
REM nd issnumber .of decimal places 
7090 LET US = STR® ( INT (( VAL S$— VAL TS) #n3+.5)) 
7100 IF VAL US < VAL W#(1 TO nd) THEN LET 
US = W#(2 TO nd- LEN Us+1)+Us 
7110 IF ns = © THEN LET T# = "2" 
7120 LET S$ = TS+US 
7130 RETURN 
8000 REM 
8010 REM main.loop 
8020 LET hm = 0 + LET cm = hm = LET gm = hm = 
REM init .display .mode 
8030 GO SUB 1000 = REM input .year .range 
8040 GO SUB 2000 = REM input ssales.history 
8050 GO SUB 3000 = REM caculates 
8060 GO SUB 4000 = REM plot .graph 
8070 GO TO 8040 


Possessions Evaluation 


Copyright (c) Beam software 


DESCRIPTION 


This is one of the three financial model programs in 
this book. The model will assist individuals in 
itemizing and evaluating their personal possessions. The 
evaluation is useful for insurance coverage and claims 
for fire or theft losses. It could also be used for 
capital expenditure items in a small business, such as 
office or manufacturing equipment. 

Each possession is evaluated on its original cost, 
resale value, and replacement cost. 

The resale yalue is calculated according to 
straight-line depreciation, and the replacement cost is 
based on the local inflation rate. 

Replacement value could also be evaluated using an 
accepted price appreciation rate in place of the local 
inflation rate. 


HOW TO RUN THE PROGRAM 


The whole model is again screen driven. You have to 
enter BASIC INFORMATION first before you can enter any 
information about items that you own. 

BASIC INFORMATION 

NAME 20 chars 

CURRENT YEAR : 4 chars, has to be at least 
1982 

LOCAL INFLATION : less than 100 percent 

NUMBER OF ITEMS : less than 100 


ITEM INFORMATION ~ 


DESCRIPTION 18 chars 

LOCATION 10 chars 

DATE ACQUIRED : 4 chars before this year 
LIFE : within 100 years 


ORIGINAL COST numeric 


PROGRAM STRUCTURE 


The structure of the program is as follows: 
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INITIALISATION 


INITIALISE STRING VARIABLES ( NAME AND YEAR ) 
INPUT BASIC INFORMATION 
INITIALISE ARRAYS OF description 

location 

date acquired 

life 


INITIALISE ARRAYS 


INPUT ITEM INFORMATION 


SET UP ITEM SCREEN 

INPUT ITEM DATA FIELDS 
CALCULATES RESALE VALUE 
CALCULATES REPLACEMENT COST 


MAIN LOOP 
PERFORM INPUT ITEM INFORMATION 
UNTIL all items finished OR inkey$ = '*! 
LOAD HEADER SCREEN 
DISPLAY FINAL HEADER INFORMATION 
STOP 


SPECIAL NOTES 


You will notice that all values in this model are 
displayed as integer only. This is justifiable as all 
long term possessions need only to be valued to the 
nearest dollar. 


The author has decided to leave you the challenge of 
further developing this program to make it capable of : 
*  redisplaying each item information sequence 
* finding items in the same location and grouping 


them together 
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POSSESSIONS EVALUATION 


100 REM EVALUATE 

110 REM possessions .evaluation .program 

120 GO TO 9000 

1000 REM 

1010 REM Header .display. routine 

1020 REM 

1030 REM Display.screen 

1040 CLS + PRINT AT 1 
PRINT AT 2, & 

1050 PRINT AT 

1060 PRINT AT 

1070 PRINT AT 

1080 PRINT AT 


“POSSESSIONS .EVALUATION" = 


NAME =." 

CURRENT YEAR =." 

LOCAL JINFLATION = ...-4..% 
“NUMBER OF JITEMS =." 


1090 PRINT AT "TOTAL" = PRINT AT 13, 13 
1100 PRINT AT “REPLACEMENT VALUE. 4°" 
1110 PRINT AT "ORIGINAL 4. 4.VALUE 


"DIFFERENCE" 3 


1120 PRINT AT 
1130 PRINT AT 
1140 PRINT AT 
1150 PRINT AT 


AN) £7) 224. 92 


“pe . CHANGE" 


AT 19, 143 


aac aeh” 

1160 PRINT AT 21, 33 “TOT.CURRENT.VALUE..*" 

1170 RETURN 

5000 REM 

5010 REM Record.routine 

5020 REM Display srecord screen 

S030 FOR I = 1 TO NI 

5040 CLS + PRINT AT 1, 83 "ITEM.DESCRIPTION" 
PRINT AT 2, 83 “ = 

5050 PRINT AT 4, 13 “DESCRIPTION 

5040 PRINT AT 4, 13 “LOCATION =" 

5070 PRINT AT 8, 13 “DATE .ACQUIRED 
"LIFE 

5080 PRINT AT 10, 13 “ORIGINAL.COST = 

5090 PRINT AT 13, 13 "CURRENT PRINT AT 14, 15 

5100 PRINT AT 16, 33 “RESALE.VALUE"; AT 16, 213 """ 

5110 PRINT AT 18, 33 "REPLACEMENT .COST" 

5120 PRINT AT 4, 143 INVERSE 13 


5130 PRINT AT 6, 113 INVERSE 13 “....ansaae” 

5140 PRINT AT 8, 163 INVERSE 13 "J..." 

5150 PRINT AT 8, 27; INVERSE 13 "1." 

5160 PRINT AT 10, 163 INVERSE 13 “.sssaa” 

5170 REM input .item data 

5180 PRINT AT 4, FLASH 13 =n 

5190 INPUT D#(I) IF D#(T, 1) = "#" THEN GO TO 5410 
5200 PRINT AT 4, 14; INVERSE 13 D#(I) 

5210 PRINT AT 4, 03 "." = PRINT AT 6, 0} FLASH 13 " > 
5220 INPUT L$(I) = IF L#(I) = "x" THEN SO TO 5410 
S230 PRINT AT 6, 113 ERT SHI © INVERSE 13 L#(T) 
5240 PRINT AT 6, 03 “." = PRINT AT B, OF FLASH 13 " > 


4060 
6070 
6080 


4090 


6100 
6110 
6120 
6130 
go00 
8010 
g020 


8030 
040 


8050 
8060 


8070 
g080 
090 
8100 


INPUT T#(I) = IF VAL T#(T, 1 TO 4) > VAL 
C#(1 TO 4) THEN GO TO S250 

PRINT AT 8, 163 INVERSE 13 T$(1) 

PRINT AT 8, 03 "4" = PRINT AT 8, 213 FLASH 13 
“> 

INPUT L = IF L < 0 THEN GO TO 5280 

LET L = INT L = PRINT AT 8, 273 INVERSE 13 L 

PRINT AT 8, 213 PRINT AT 10, 03 FLASH 15 
“> 

INPUT 0 = IF O < 0 THEN GO TO 5310 

LET O = INT O = PRINT AT 10, 163 INVERSE 13 0 

PRINT AT 10, 05 "A" 

REM calculatesresale.value 

LET yu = VAL C#- VAL T#(T) 

yu < Ltyu + (yu >= Lak 

INT ((L—yu) ¥O/L) 

LET TC = TC+ry = PRINT AT 14, 23+7- 
LEN ( STR® rv)3 ry 

LET rc = INT (08 (14117100) “yud 

LET TR = TRere 

+ PRINT AT 18,23+7— LEN ( STR® rc)s rc 

LET TO = TO+O 

IF INKEY$ = “", THEN GO TO 5390 

NEXT I 

RETURN 

REM 

REM display.final .header 

PRINT AT 4, 93 INVERSE 13 N& 

PRINT AT 6, 173 INVERSE 13 CS 


© PRINT AT 8, 203 INVERSE 13 INT (LI#100)/100 


PRINT AT 10, 20; INVERSE 13 NI 

PRINT AT 14, 244+8- LEN ( STR# TR)3 TR 

PRINT AT 15, 2448- LEN ( STR® TO); TO 

LET di = ABS (TR-TO) = PRINT AT 17, 
24+8- LEN ( STR$ dids di 

IF TR < TO THEN PRINT AT 17, 215 "—" = PRINT 
Ay 49, 2h va 

PRINT AT 19, 143 INT ((di/TQ)#10000)/100; "1%" 

PRINT AT 21, 24+8- LEN ( STR$ TC)3 TC 

IF INKEY# <> "&" THEN GO TO 6120 


RETURN 

REM 

REM initialise.data 

DIM C#(4) = DIM N$(20) > LET N® = "4" = LET 
cy 0 = LET NI = LET 


a: LETLI 
TR = 0 = LET TO = 0 = LET TC 
GO SUB 1000 = REM display .header 
PRINT AT 4, 93 INVERSE 13 
PRINT AT 6, 173 INVERSE 13 "...." 

PRINT AT 8, 203 INVERSE 13 “.."3 AT 8, 25 
PRINT AT 10, 205 INVERSE 13 "1." 

REM input .fields 

PRINT AT 4, 23 FLASH 13 "> " 

INPUT N& = IF N@ = "." THEN GO TO 8100 


8110 PRINT AT 4, 93 INVERSE 13 N#(1 TO 20) 
8120 PRINT AT 4, 23 = PRINT AT 6, 23 FLASH 13 " > 


6130 INPUT C# = IF VAL C# < 1982 THEN GO TO 8130 
8140 PRINT AT 6, 173 INVERSE 13 C$ 
8150 PRINT AT 6, 23 "4" 
8160 PRINT AT 8, 23 FLASH 13 “> “ 
9180 INPUT LI = IF LI > 100 OR LI < © THEN GO TO 8180 
8190 PRINT AT 8, 203 " GSI O EXT SHI 7"+ STR® ( INT 
(LI¥100)/100)+" EXIT 7 EXT SHI 0” 
8210 PRINT AT 8, 25 "." = PRINT AT 10, 23 FLASH 13 
“om 
8220 INPUT NI = PRINT AT 10, 203 
" BSI O EXIT SHI 7“+ STR# NI+" EXIT 7 GXI SHI 0” 
8230 PRINT AT 10, 25 "4" 
240 PRINT AT 12, 93 FLASH 13 INK 33 “INITIALISING" 
250 DIM DS(NI, 18) 
8260 DIM L#(NI, 10) 
8270 DIM TS(NI, 4) 
98280 DIM L«NI) 
8290 DIM DINT) 
8300 FOR IT = 1 TO NI 
8310 LET D&(1) “: LET LS(T) = "." = LET 
T#(1) 
8320 LET L(T) 
8330 NEXT I 
8340 PRINT AT 12, 93 INK 33 "FINISHED..." = FOR 
I = 1 TO 50 = NEXT I 
8350 LET TR = 0 = LET TO = TR + LET TC = TR 
8360 RETURN 
9000 REM 
9010 REM main.loop 
9020 GO SUB 8000 = REM input header .data 
9030 GO SUB 5000 = REM input.item 
9040 REM display.final .header .info 
97050 GO SUB 1000 
9060 GO SUB 6000 
9070 PRINT AT 12, 93 FLASH 13 INK 15 "PROGRAM.ENDED™ 
9080 STOP 


LET o(1) = 0 
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Copyright (c) Clifford Ramshaw and Beam Software 


This program will allow you to challenge the 
computer to a game of chess. But be warned the computer 
is a terrible player and it is very very slow. 


Hovever this program does have some nice 
graphics and for anyone who is a keen chess player 
it should not be too hard to turn the computer into 
a better player. Alternatively the program could be 
changed to allow two human players to have a game. 
The choice is yours. 

This program is an excellent example of what 
is possible on the SPECTRUM. Chess is generally 
considered a game that is difficult for computers to 
play. While this program in no way pretends to play 
well it does show just what can be done in SPECTRUM 
basic with a little effort. 


When the program is run the computer will 
set up the variables used, draw the board and pieces 
and then ask you for a move. You are white (at the top) 
and your move is entered as letter from 'a' to ‘h' 
followed by a number from '1' to '8! 

The computer does not check to see if your move 

is a legal one so be careful, (unless you are unscrupulous 
and want to cheat). 


How the program works 
The following is a breakdown of the program 


lines description 


1-4 initialization of the screen and 
some variables that are used to 
save space in the data statements 
used to build the graphic chess 
pieces 


10 - 270 builds the chess pieces in the user 
defined graphics set from the data 
statments in lines 30 - 220 

280 - 315 draws the empty board on the screen 

318 ~ 360 dimensions the board array and the 
arrays used to define the allowed 
moves of the pieces, then fills the 


board array 


370 calls the subroutine to put the pieces 
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380 - 500 
600 - 630 
800 - 900 
1000 - 1010 
3000 ~ 3150 
4000 - 4410 
5000 - 5090 


on the screen 


builds the arrays used to define the 
allowed moves of the pieces 


main loop 

get the players move 
get the computers move 
goto 1 


inputs the players move 


draw the piece 'c' at board position 
xy 


input the players move and do it on 
the screen 


make the computers move 


checks for checkmate of the computer 
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1 PAPER 7 = BORDER 7 = CLS 


2 LET p = 248 + LET t = Si + LET a = 128 + 
LET g = 13 = LET h = 160 

3 LET b = 192 = LET d = 224 = LET e = 240 = 
LET f = 15 

4 LET x =O + LETy = 12 LET2 =3 c=7 
LET i = 160 


5 LET ## = "" = DIM AS(1, 1) 
6 LET kx = 5S + LET ky = 8 + LET Qq o 
© FOR m = USR "a" TO USR "“t"+7 
0 READ n = POKE m, m + NEXT m 
SO DATA xX, Xs Xs Xs Hy Xs Ys 
}O DATA x, xX, X, Xy Xs Xs ay 
SQ DATA cy Cy Zs Ys Zs Cy Xs 
40 DATA d, d, b, a, by dy xy 
7O DATA ys Cs Cs Ys Gs fs fs 
80 DATA a, d,s d, a, 176, e, ©, d 
90 DATA zy Zs Zs Ys Cy fy Sly % 
100 DATA b, b, by a, dy © Ps x 
420 DATA 4, 5; 25. Ys #3 €s Ca C 
120 DATA 32, h, 64, a, b, d, dy 
130 DATA zs Ys ¥» Ys Zs Co fy % 
140 DATA b, a, a, a, by dy 2, X 
150 DATA y, 24 C+ Cy 14, gy Cy 2 
160 DATA a, b, h, 112, e, d, dy b 
170 DATA x, %. X, %) %, 5, 5S, 
180 DATA x, x, Xs Xs Xs hy hy d 
190 DATA x, Xs Xs Ys Zs Cy Cy Z 
200 DATA x, %s as Ds dy @, py 152 
210 DATA ys ys Ys Zs Gs Cy fs * 
220 DATA a, a, ay by dy dy ©, 
230 DIM t#(7, 2) = DIM bS(7, 2) 
240 FOR x 1 TO 7 = READ t#(x). be(x) = NEXT 
250 DATA “ GRe A GRA B" 
“ GRe @ GRE R", " GRE S GRA T" 
260 DATA " GAS M GRE N" 
" gpe O GRe Pp", " GRe C GHe D" 
270 DATA " GRe I gaa J" 
" gRe E EY, 


280 LET 1 = 2 = LET p = 4 = PRINT 
“ .aAeB.C.D.E.F .G.H" 

290 PRINT = FOR x = 0 107+ FOR y= 0 TO 1 
PRINT ".42"5 


© TO 3 = PRINT PAPER pi ".4"5 PAPER i3 


naxx oN 


310 NEXT 2 + PRINT + NEXT y + LET t = i ¢ LET i = 
2 LET p = t + NEXT x 

FOR y = 1 TO B + PRINT AT y+y, OF y = NEXT y 

DIM b(8, @) + FOR y = 1 TO 8 = FOR x = 1708 

LET z = (y = B)8-b(x, 1)#(y = 2)#-14(y = 7) 

IF y = 1 THEN READ z 

LET bx, y) = 2 = NEXT x = NEXT y 


DATA -4, -2, —3, -5, —6, 
GO SUB 2000 
DIM d(6, 8, 2) = DIM p(é) 


FOR x = 1 TO 6 = LET p(x) = 


LET d(x, y, 2) 
AND (y < 7))#-1 


(y < 3) OR 


2+ FOR 


y=17T08 


fy = B)+U(y > Dd 


LET d(x, y, 1) = (¢y > 1) AND 


ty < SDH (y > SPRL 


NEXT y = IF x <> 2 THEN GO TO 4460 


FOR y = 1 TO 4 = READ d(x, 


¥s 1), dx, y, 2) 


LET dix, y+4, 1) = -dlx, yy 1) = 
LET d(x, y+4, 2) = d(x, yy 2) 

NEXT y 

DATA -2, 1, ~1, 2, 1, 2, 2, 1 

IF x = 1 THEN LET p(x) = 

IF x > 4 THEN LET pix) = 1 

NEXT x 

DIM c$(5S) + FOR x = 1 TO 5 = READ c#(x) + NEXT x 

DATA “p", "ns "b", "eM, "qn 

GO SUB 3000 

PRINT AT 8, 223 FLASH 13 “THINKING: 

GO SUB 4000 

GO TO 400 

LET A$(1) = INKEY$ = IF A$(1) = "p" THEN 
GO TO 900 

IF (AS(1) = "") OR (AS(1) < “a") OR 
(AS(1) > "h") THEN GO TO 800 

PRINT AS(1)3 "2°53 

LET X1 = CODE AS(1)-96 

LET AS(1) = INKEY$ = IF (A®(1) = "") OR 
(a1) < "1") OR (AS(1) > "B") THEN GO TO B30 


PRINT AS(1)3 


LET Y1 = CODE AS(1)-48 


RETURN 


LET Xt = 999 = LET YI 


LET z1 = INT (( ATTR 
THEN LET zi = 21-8 


PRINT BRIGHT 13 PAPER 213 
xen 5 


« t#(c)5 AT y+y41, 
RETURN 


FOR y = 1 TO 8 = FOR x 
LET z = b(x, y) ¢ 
LET i =7 2 IF 2 > 


NEXT x = NEXT y 


IF 


= 0 = RETURN 
byty, x) 7/8) 
INK i3 


rz 


be(c)s 


1708 
© THEN GD TO 2040 


© THEN LET i = 0 
LET c = ABS z = GO SUB 1000 


2 IF zi >= 


AT yty, x45 


RETURN 

IF #$ = "1" THEN PRINT AT 20, 223 “CHECKMATE” 
sToP 

PRINT AT 3, 22% “Your .move" = PRINT AT 4, 223 
“FROM."5 = GO SUB 800 = IF X1 = 999 THEN 
STOP 

RET OX = 84-2 LET Vie Vil 

PRINT AT S, 243 "TO." GO SUB 800 = 


LET XB = X1 = LET YB = YI 
IF b(XB, YB) > 0 THEN 


LET p(b(xB, YB)) 


p(b (XB, 
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YE) )-1 


8 


3050 
3060 
3070 
3080 
3090 
3100 


3110 
ss 
3120 
3130 


3140 


3150 
4000 


4010 


4020 


4030 
4040 


4050 


4060 
4070 
4080 
4090 
4100 
4120 
4130 


4140 


4150 
4160 
4170 


4180 


4190 
4200 
4210 
4220 
4230 
4240 


4250 


LET b(XB, YB) = b(x 


LET bx, Y) 
IF b(XB, YB) 
PRINT AT 4, 
LET AS(1) 
LET a= 0% 

THEN LET a 
NEXT 2 ¢ IF 
PRINT AS(1)5 


° 


2 ¥) 


LET i = 7 


< -1 OR YB < 8 THEN GO TO 3120 


Zig “Pi 
INKEYS 


ece. 


FOR z = 1 TOS = IF c#(z) = AS(1) 


=z 
a 


© THEN GO FO 3090 
LET b(XB, YB) = a 


LET c = 7 = GO SUB 1000 

LET c = —b(XB, YB) * LET x = XB? LET y = 
GO SUB 1000 

PRINT AT 3, 223 "“seasaaaaa"3 AT 4, 225 
WS ce enaaa hl (Al Sy 249 Tienes 
AT 6, 215 “ssenaan"S 

RETURN 

LET xb = 0 = LET yb = xb = LET db = xb = 
LET cL = 1 = LET bp = xb ¢ LET x = @ 

LET ax = kx = LET ay = ky = LET gt = "" = 
GO SUB 5010 = LET gt = f# 

FOR y = 1 TO 8 = FOR x = 1 TO 8 = LET tb 
LET cz = 1 + LET ty = 0 = LET tx = 0 = 
LET d =0 


IF bix, y) < 1 THEN GO TO 4370 

y) + FOR i = 1 TO 8 : 
2) = LET dx = dip, 
% = LET ay = ky LET ct 


LET p = bix, 


LET dy = dip, i, 
LET ax = k 
LET po = 0 


i 
=1 


YB = 


=oO8 


IF x+dx < 1 OR x#dx > 8 OR y+dy < 1 OR y+dy > @ 


THEN GO TO 


4300 


IF p > 2 AND p < 6 THEN GO TO 4210 
1 THEN GO TO 4300 


IF dy > -1 Al 
IF y > 1 OR 
LET p(S) =p 
LET b(x, y? 
GO TO 4300 


IND p = 
p>iT 
(5) +1 
2 


HEN GO TO 4130 


IF dx <> 0 AND bix+dx, y+dy) > —1 THEN 


GO TO 43500 


IF p = 6 THEN LET kx = x + LET ky 
+dx 2 LET ay = ytdy = 
IF f% = “1" THEN GO TO 43500 

y+dy) <> 0 THEN GO TO 4500 


LET ax = x 


IF dx = 0 ANI 
LET po 


ID bix, 


B-p-b(xtdx, y+dy) «Ss 


ye 


GO SUB 5000 


IF y <> 7 OR dx <> 0 OR bix, 5) <> OORp >1 


THEN GO TO 


4300 


2 


IF g$ = "1" THEN GO SUB 5000 = IF f# = "" 
GO TO 4300 

IF g$ = "1" OR RND > .3 THEN LET cl 

GO TO 4500 


LET x1 = x @ 


LET yi 


se) 


THEN 


IF p = 3 AND INT (i/2)#2 < i THEN GO TO 4300 

IF p = 4 AND INT (i/2)#2 = 1 THEN GO TO 4300 

IF xi+dx < 1 OR xl+dx > 8 OR yl+dy < 1 OR 
yl+dy > @ THEN LET cl = cl1-1 + GO TO 4300 


IF b(xl+dx, 
GO TO 4300 


yi+dy) 


> Q THEN LET c1 
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ci-1 


4260 LET po = 8-p+ INT ( RND #3)-b(xl+dx, yl+dy) #3 

4270 IF g$ = "1" THEN GO SUB 5000 + IF f% = "" THEN 
LET po = po+50 = GO TO 4340 

4280 IF b(xl+dx, yl+dy) <> 0 THEN GO TO 4300 

4290 LET cl = ci+1 = LET x1 = x1+dx = LET yl = yitdy 


= GO TO 4240 

4300 IF po = 0 THEN GO TO 4340 

4310 IF g$ = THEN GO SUB 5000 = IF #% = "" THEN 
LET pot+So = GO TO 4340 

4320 IF g$ = "" THEN GO SUB S000 = IF #% = "1" THEN 


LET po = 0 = GO TO 4340 

4550 IF po >= th THEN LET ax = x+dx8ci + 
LET ay = y+dy8cl ¢ GO SUB 5000 + IF f$ = 
THEN LET po = po-p2 

4340 IF po > tb THEN LET tb = po = LET tx = x + 
LET ty =y = LET dG =i + LET cz =e1 

4350 NEXT i 

4360 IF tb > bp OR (tb = bp AND ( RND > .9 OR + 
(ty < yb AND RND > .5))) THEN LET bp = tb = 
LET xb = tx = LET yb = ty = LET cl = cz + 
LET db = d 

4370 NEXT x = NEXT y = LET p = b(xb, yb) = 
LET x1 = xb+d(p, db, 1)*cL = 
LET yl = yb+d(p, db, 2)&cL = IF p = 6 THEN 
LET kx = x1 = LET ky = yt 

4380 LET ax = kx = LET ay = ky + 
LET b(xi, yi) = b(xb, yb) = LET bixb, yb) = 0 
2 LET q = 1 + GO SUB SOL LET q=0 

A385 PRINT AT 8, 225 “saaesaaa"§ AT 9, 223 
“Myamove"s AT 10, 223 “FROM."3 CHR® (xb+95) 5 
"—"5 CHR (yb+4B) 5 

4386 PRINT AT 11, 243 "TO. 
CHRE (y1+48)5 

4390 LET i = 0 + LET c = 7 * LET x = xb * LET y = yb 
+ GO SUB 1000 

4400 LET c = b(xt, yi) + LET x = x1 + LET y = yt = 
GO SUB 1000 

A410 RETURN 

5000 sLET pc = b(x+dx&ci, ytdyte1) = 


CHRE (1495) 5 "—"5 


LET b(xtdxtcl, ytdytcl) = bx, y) = 
LET b(x, y) = 0 

S010 LET ## = "" + FOR r = 170 6 + FOR j = 1 108 = 
LET di = dir, j, 1) * LET d2 = dtr, §j, 2) = 
LeTL=1 


S020 IF ax+di#L < 1 OR ax+dis#L > 8 OR ay+d2#L < 1 OR 
ay+d2%_ > 8 THEN GO TO 5060 

5030 IF r = 1 AND d2 < 1 AND q = O THEN GO TO 5060 

5040 IF b(ax+di#L, ay+d2*L) = -r THEN LET ## = "1" 
GOD TO 5070 

5050 IF r > 2 AND r < 6 AND blax+d1#L, ay+d2#L) 
THEN LET L = L+1 = GO TO 5020 

5060 NEXT j = NEXT 

5070 IF x > 8 THEN GO TO 5090 

SO8O LET btx, y) = b(x+dx¥cl, ytdytel) 
LET bOrtdxtcl, ytdyte1) = pc 

5090 RETURN 
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This program is a combination of basic and 
machine language that plays a pretty fair game of 
draughts. 

The computer displays a graphic draughts 
board, with your pieces (red) at the bottom and its 
pieces (black) at the top. You always move first and 
your move is input as a "from value" that tells the 
computer which piece to move and a "'to value" which 
tells the computer where to move it. 

The squares are identified by a letter and 
a number, The letters range from 'a' to ‘h! and are 
the columns of the board. The numbers go from '1' to 
and are the rows. For example an opening move could be 
‘FROM a6, TO 65! (you type ‘a6’ and 'b5') 

Tf you should happen to lose the game or wish 
to quit just hit '0' as the first key when the computer 
asks you for your move. 

All your moves are checked for legality so 
you can't cheat; but captures are not compulsory 
(for you), and multiple jumps are not allowed. 

The computer always captures if it can. 

You make a king by getting a piece to the last 
line. Kings move only one square and can only make 
single captures but may move forwards or backwards 


How it works: 


The BASIC part of the program performs the 
housekeeping functions. It sets up the board, accepts 
and executes the player's moves and graphically displays 
all moves on the screen. A short machine language program 
is used to make the computer's move. This was done to 
allow the game to be played without having to wait 
forever for the computer to make its move. For those 
with an understanding of machine language, a listing 
of this part of the program is included. 

“If you do not understand machine language 
do not worry as this part of the program is typed 
in as data statements at lines 9000 - 9450. Just 
be careful when typing them in. 

As part of the machine language section the 
computer has a representation of the board in memory 
as 4 series of bytes. This is why PEEKs and POKEs 
are used to make changes rather than using an array. 
It is easier for the machine language program to access 
this board in memory than in an array. 
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The program 


LINES 
10 - 20 
30 - 79 
80 - 160 
170 - 230 
300 - 320 
1000 - 1060 
2000 - 2540 
2000 
2030 
2060 
. 
2120 
2500 
3000 - 3110 
3500 
3900 - 3904 
4000 - 5010 


DESCRIPTION 


These two lines set the top of 
memory so that the machine language 
program will be protected. The subroutine 
at 9000 is then called to put the machine 
language in memory. 


This section sets the screen 
attributes, and builds the board 
represention {n memory 


Sets up the user defined graphics 
for the pieces then displays the empty 
board. 


Puts the pieces on the screen in 
initial configuration. 


Main loop 

1 get players move 
get computers move 
goto 


Draws a piece on the board at position 
xy with color ¢. The piece is determined 
by p : 0 = blank 

normal man 

2 = king 


Inputs the player's move 
It can be broken down as follows: 
2020 displays message 
2050 gets from value and checks if 
it is legal 
2110 gets to value and checks if 
it is a valid direction to move 
2200 makes the player's move if it was 
a capture 
2540 makes a normal move for vhe player 


Calls the machine language program 
for the computer's move and does that 
move on the board 


Displays the x,y values of the 
computer's move 


The program jumps to here if the 
computer has lost 


Inputs an x,y value to be used in 


the player's move 
Tf the player hits '0' as the first key 
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the game ends and he is asked if he wishes 
to play again 


9000 - 9020 Reads the machine language program 


from the data statements and stores 
it into memory. 


9100 - 9450 Comprises the data statements that 
make up the machine language program. 
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DRAUGHTS: 


10 CLEAR 32019 

20 GO SUB 7000 

30 RESTORE 70 

40 BORDER 7 = PAPER 7 = INK © = CLS 

SO FOR x = 32420 TO 32420+89 

60 READ a = POKE x, a = NEXT x 

70 DATA 255, 255, 255, 255, 255, 255, 255, 255, 255 
71 DATA Oy 1p 0; 1, 0, 1, Oy 15 255 

72 DATA 1, 0, 1, 9, 1, 0, 1, 0, 255 

TE DATA 05) Ly, 05> hy, 95 15, Oi 4, 255 

74 DATA O, 9, 0, 0, O, O, 0, O, 255 

75 DATA 0, 0, 0, 9, 9, 0, 0, 0, 255 

7 DATA 2, 0, 2, 0, 2, 0, 2, 0, 255 

77 DATA 0, 2, 0, 2, 0, 2, 0, 2, 255 

78 DATA 2, 0, 2, 0, 2, 0, 2, 0, 255 

79 DATA 255, 255, 255, 255, 255, 255, 255, 255, 255 
80 FOR x = USR “a" TO 63+ USR “a” 

90 READ a = POKE x, a = NEXT x 

100 DATA Q, 7, 31, 63, 63, 127, 127, 127 

101 DATA 0, 224, 248, 252, 252, 254, 254, 254 
102 DATA 127, 127, 127, 63, 63, 31, 7, 9 

103 DATA 254, 254, 254, 252, 252, 248, 224, 0 
104 DATA ©, 7, 31, 60, 54, 116, 98, 97 

105 DATA 0, 224, 248, 60, 28, 46, 70, 134 
106 DATA 97, 98, 116, 56, 60, 31, 7, 0 

107 DATA 134, 70, 46, 28, 60, 248, 224, 0 


110 PRINT “..A.B.C.D.E.F.G.H" = PRINT 
115 LETd = 3? LETL=5 
120 FOR y = 1 TO 8 = PRINT AT yty, OF ys “4a"G 


130 FOR z = 1 70 2+ FOR x = 1 70 4 

140 PRINT PAPER ds “.4"5 PAPER L3 “.."5 = 
NEXT x = PRINT = PRINT “.."3 = NEXT 2 

150 LET t =d + LETd =L * LETL =t 


160 NEXT y 

170 LET p = 

180 FOR x TO 8 STEP 2 

190 LET c LET y = 1 * GO SUB 1000 + LET y = 3 
Sos 1000 

200 LET c LET y = 7 + GO SUB 1000 = NEXT x 

210 FOR x 0 7 STEP 2 

220 LET c = LET 

230 LET c = 2 3 LET LET y =8 


+ GO SUB 1000 
00 GO SUB 2000 

310 GO SUB 3000 

320 GO TO 300 

1000 PAPER L 
1005 IF p 


INK c + PRINT AT yt+y, x+x3 
© THEN PRINT "12°53 

1010 IF p = 1 THEN PRINT " GBG A GRA B"; 

1020 IF p = 2 THEN PRINT " GRA © GRA F"; 

1030 PRINT AT y+y+l, 4x5 
0 
1 


1035 IF p THEN PRINT "a."5 
1040 IF p THEN PRINT " GRA C GRA D"5 


O LET p = 0 LET x = #x = LET y 


IF p = 2 THEN PRINT " GRA G GBA H"; 

RETURN 

PAPER 7 = INK 0 = PRINT AT 4, 223 "Your smove” 

BEEP .5, 10 = PRINT AT 7, 223 “FROM. =244"5 

PRINT AT 8, 223 "aTO.s *204"5 

LET L = 7 = GO SUB 4000 = LET fx = x 
LET fy =y 

LET fp = 32419+98fy+#x = LET f = PEEK fp 

IF # <> 2 AND # <> 130 THEN GO TO 2010 

LET L = 8 = GO SUB 4000 = LET tx = x = 
LeT ty =y 

LET tp = 32419+9%ty+tx = LET t = PEEK tp 

LET dx = tx-#x * LET dy = ty-fy 

IF ( ABS dx <> 1 AND ABS dx <> 2) OR 
ABS dx <> ABS dy THEN GO TO 2010 


IF (dy = 1 OR dy = 2) AND # = 2 THEN GO TO 2010 


IF ABS dx = 1 THEN GO TO 2500 
IF t <> 0 THEN GO TO 2010 
LET jx = fx+dx/2 = LET jy = fy+dy/2 
LET jp = 32419+9%j3y+3x = LET 3 = PEEK 3p 
IF j <> 1 AND j <> 129 THEN GO TO 2010 
LET c = 2 LET p = 0 = LET x = fx ¢ LET y = 
+ GO SUB 1000 = POKE fp, 0 
LET p = 1 = IF # = 130 OR ty = 1 THEN LET p = 
LET x = tx = LET y = ty + GO SUB 1000 = 
POKE tp, f = IF ty = 1 THEN POKE tp, 130 
LET p = 0 = LET x = jx = LET y = jy = 
GO SUB 1000 + POKE jp, 0 
RETURN 
IF t <> 0 THEN GO TO 2010 
LET p = 0 = LET c = 2 = LET x = fx = 
LET y = fy = GO SUB 1000 = POKE fp, 0 
1 
tx 


LET p IF f = 130 OR ty 
LET x LET y ty + GO SUB 1000 = 

POKE tp, f = IF y 1 THEN POKE tp, 130 
RETURN 
LET mp = USR 32020 
PAPER 7 = INK 0 PRINT AT 10, 223 "“MY.move" 
PRINT AT 11, 223 “FROM. = 1.4 
PRINT AT 12, 22) “.TOs. * 20075 


FOR i = 1 TO 50 = NEXT i 

IF mp = 0 THEN GO TO 3900 

LET fy = INT (mp/256) = LET ty = mp-256%fy 
LET fx = INT (fy/16) = LET fy = fy-168fx 
LET tx = INT (ty/16) ¢ LET ty = ty-168tx 
LET x = #« @ LET y = fy ¢ LET z = 11 = 


GO SUB 3500 + LET x = tx + LET y = ty = 
LET z = 12 + GO SUB 3500 


" 
< 


GO SUB 1000 
LET tp = 32419+9"ty+tx = LET t = PEEI 
LET p = 1 ¢ IF t = 129 THEN LET p = 
LET c = 0 = LET x = tx + LET y = ty 
GO SUB 1000 
IF ABS (tx—fx) <> 2 THEN RETURN 
LET x = fxt(tx-fx)/2 = LET y = fyt(ty-fy)/2 


fy 


1 THEN LET p = 2 


3110 
3500 


3900 


3901 
3902 
3903 
3904 
4000 
4010 
4015 
4020 
4030 
4040 
a0sa 
4060 
4070 
4080 
5000 
5010 
97000 
F010 
7020 
9100 
F110 
97120 
91350 
9140 
9150 
91460 
9170 
9180 
9190 
9200 
9210 
9220 
92350 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 


LET p = 0 = GO SUB 1000 = RETURN 

PRINT AT z, 283 CHR® (x+64)3 CHR® (y+48) = 
RETURN 

PRINT INK 03 AT 20, 03 “I.have.no.move.—— 
2YOULWIN" 

PRINT AT 21, 03 “Another .game.?." 


IF INKEYS THEN GO TO 3902 

IF INKEY$ = "y" THEN GO TO 50 

sTOP 

PRINT AT L, 263 FLASH 13 “."3 CHR 83 


LET a® = INKEY# 


IF a# = "0" THEN GO TO 5000 
IF at < "a" OR af > "h" THEN GO TO 4010 
PRINT a® = LET x = CODE a$-96 


PRINT AT L, 293 FLASH 13 “4 
LET a% = INKEYS 

IF a$ < "1" OR a$ > "8" THEN GO TO 4050 
PRINT a# = LET y = CODE a$-48 

RETURN 

PRINT INK 03 AT 20, 03 "Bad.sluck .——.1.WON" 
60 TO 3901 

RESTORE 9100 = FOR x = 32020 TO 32301 
READ a + POKE x, a = NEXT x 

RETURN 

DATA 175, 33, 177, 125, 6, 10, 119, 35 
DATA 14, 252, 6, 35, 33, 174, 126, 126 
DATA 254, 1, 40, 16, 254, 129, 32, 24 

DATA 17, 246, 255, 205, 187, 125, 17, 2468 
DATA 255, 205, 187, 125, 17, 8, 0, 205 
DATA 187, 125, 17, 10, 0, 205, 187, 125 
DATA 35, 35, 16, 219, 58, 182, 125, 167 
DATA 40, 18, 42, 183, 125, 237, 91, 185 
DATA 125, 229, 126, 54, 0, 25, 54, 0 

DATA 25, 119, 24, 19, 58, 177, 125, 167 
DATA 40, 29, 42, 178, 125, 237, 91, 180 
DATA 125, 126, 54, 0, 229, 25, 119, 235 
DATA 225, 205, 135, 125, 121, 230, 15, 254 
DATA 8, 192, 26, 246, 128, 18, 201, 1 

DATA 0, 0, 201, 235, 205, 146, 125, 79 
DATA 255, 205, 146, 125, 71, 201, 229, 213 
DATA 197, 17, 164, 126, 175, 237, 82, 61 
DATA 17, 9, 0, 60, 237, 82, 48, 251 

DATA 71, 25, 125, 60, 7, 75 7s 7 

DATA 128, 193, 209, 225, 201, 0, 0, Oo 

DATA O, 0, 0, 0, 0, 0, 0, 205 

DATA 19, 126, 254, 255, 200, 230, 127, 254 
DATA 1, 200, 254, 2, 40, 78, 229, 25 

DATA 213, 17, 246, 255, 205, 13, 126, 40 
DATA 39, 17, 248, 255, 205, 13, 126, 40 
DATA 31, 17, 8, 0, 205, 5, 124, 40 

DATA 23, 17, 10, 0, 205, 5, 126, 40 

DATA 15, 209, 225, 34, 178, 125, 237, 83 
DATA 180, 125, 62, 1, 50, 177, 125, 201 
DATA 58, 177, 125, 1467, 40, 235, 209, 225 
DATA 201, 205, 19, 126, 250, 127, 254, 2 
DATA 201, 205, 19, 126, 254, 130, 201, 229 


CHR® 83 
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9420 
9430 
9440 
9450 


DATA 
DATA 
DATA 
DATA 


25; 
126, 
182, 
125, 


126, 
225, 
125, 
201 


225, 
254, 


34, 


201, 
Oy 
183, 


229, 
192, 
125, 
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25, 205, 


62, ty 
237, 


50 
83, 


19 


185 


ASSEMBLY LISTING FOR DRAUGHTS 


00110 + 
714 120 ORG 32020 
00130 4 
9000 140 BLANK — EOU 0 7 CODE FOR EMPTY SQUARE 
FFFF 00150 NULL = EQU = ; CODE FOR EDGE OF BOARD 
9001 20160 BLACK EGU 1 7 CODE FOR @ BLACK PIECE 
0002 00170 WHITE EGU ze 3 CODE FOR A WHITE PIECE 
9080 00180 KING EGU 128 4 ADD THIS FOR A KING 
00190 5 
7EA4 00200 BOARD EOU 32420; ADDRESS OF BOARD 
00210 5 
7D14 00220 START — EQU * 
7D14 AF 00230 XOR a 
7D15 21B17D 0240 Lo HL,MOVE ; CANCEL OLD MOVES FROM MEMORY 
7D18 0608 00250 Lo B, 10 
7DIA 77 00260 CLEAR LD (HL) A 
7D1B 23 00270 INC HL 
DIC 10FT 00280 DINZ CLEAR 
00290 ; 
JDIE 0823 00300 Lb B,35 3B = COUNT OF POSITIONS TO CHECK 
7020 21AE7E 00310 mn) HL,BOARD+10 ; HL = POSITION ON BOARD 
00320 ; 
7023 7E 00330 NEXT LD A, (HL) 5 GET PIECE 
7024 FEO! 90340 cr BLACK — y IS IT THE COMPUTERS MAN 
726 2810 00350 aR 2,MANFND ; YES => NORMAL PIECE 
7028 FEBL O0340 cP BLACK+KING y IS IT THE COMPUTERS KING 
702A 2018 aR NZ,ENDSCH ; NO => TRY NEXT PIECE 
7D2C 11FOFF Lo DE,-10 3 TEST BACKWARD JUMPS 


7D2F CDBE7D CALL TEST 
7D32 11F8FF 00400 Lo DE, -8 3 FOR A KING 
7035 CDBR7D 00410 CALL TEST 
7D38 110800 00420 MANFND LD DE,8 } TEST FORWARD JUMPS FOR 
7D3B CDER7D 00430 CALL TEST 
7D3E 110A00 00440 im.) DE, 10 } EITHER KING GR NORMAL MAN 
7D41 CDBB7D 90450 CALL = TEST 
7044 23 00460 ENDSCH INC HL NEXT PIECE (CINLY NEED TO CHECK 
7D45 23 00470 INC HL 3 EVERY SECOND POSITION) 
7D46 10DB 00480 DINZ NEXT 

‘ 00490 ¢ : 
7D4B ZAB7D 00500 LD A, (CAPT) 3 CHECK TO SEE IF A CAPT WAS 
7D4B A7 Q0510 AND a 3; WAS FOUND 
7DAC 2B12 90520 OR Z,NORMOV ; NO => TRY A NORMAL MOVE 
7D4E 2AR77D 00530 Lp HL, (CAPTF) ; WAS A CAPTURE SO MAKE 
7D51 EDSBEF7D 00540 Lo DE, (CAPTD) + MOVE ON BOARD 
7D55 £5 00550 PUSH HL 
7D56 7E 00560 Lo A, (HL) 3 PIECE MOVING 
7DS7 3400 00570 Lp (HL) BLANK; NOW AN EMPTY SQUARE 
7059 00580 ADD HL, DE 
7D50 00590 im) (HL) BLANK 5 REMOVE PIECE JUMPED 
7S 90400 ADD HL, DE 
7DSD 77 00610 a) (HL) 8 PUT PIECE BACK IN NEW SQUARE 
7D5E 1813 00620 JR soTMOy RETURN MOVE TO BASIC PROGRAM 
7080 00630 NORMOV EOU * 
7D60 JABI7D 0064 Lp A, (MOVE) 3: CHECK FOR A MOVE FOUND 
7063 A7 AND A 
7064 281D IR 7,.NOMOVE NO =» COMPUTER LOSES 
766 ZAB27D Lo HL, (FROM) WAS A MOVE SO DO IT ON 
7069 EDSBB47D 00680 Lo DE, (DIR) BOARD 
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7peD 
7DSE 
7070 
7074 
7072 
7073 
774 
7075 
7078 
7079 
7D7B 
7070 
7D7E 
7D7F 
708 

7De2 


7086 


7087 
7087 
7pee 
7DBE 
pac 
7DeD 
7090 
7091 


792 
7093 
7094, 
7095 
7098 
7099 
7D9B 
7D9C 

7D9F 
7D9F 
7DAO 
7DAZ 


7eE 
3400) 
ES 
19 
7 
EB 
EL 
cpe77D 
79 
E60F 
FEOS 
co 
1A 
Fea0 
12 


o9 


010000 
ce 


eB 
cp9270 
ar 
EB 
cp927D 
a7 
ce 


eS 

05 

cs 
LLA47E 
ar 
eEDs2 
=D 
110900 


3c 
eps2 
30FE 


90690 
00700 
90710 
90720 
00730 
90740 
90750 
00760 
00770 
oo78a 
00790 
oogoo 
90810 
90820 
908s 
00840 


00880 


00870) 
oo900 
00910 
00920 
00930 


00950 


90980 
00990) 
91000 
o1ato 
o1oz0 
01030 
01040 
a1050 
01060 
91070 
01080 


01090 


01100 
01110 
01120 
O1130 


01140 5 
01150, 
911460 
o1t7a 
01180 
01190 
01200 


01220 


Lo Ay (HL 
up (HL) , BLANK 
PUSH HL 
ADD HL, DE 
Lo (HL) A 

GOTMOV EX DE,HL 
POP HL 
CALL = CONV 
up 4,c 
AND 15 
cr 8 
RET NZ 
Lo A, (DE 
oR KING 
im) (DE) 5A 
RET 

4 

NOMOVE LD BC, 
RET 


i 


FOR THE BASIC PROGRAM 
; HL => B 
FROM" 
MOVE ) 
; DE => C 


conv = EQU + 
EX DE,HL 
CALL = CONVIT 
ub cA 3 
EX DE, HL 
CALL = CONVIT. 
Lo BA 1 
RET 


(X,Y VALUE OF THE "TO" 
THE X VALUE IS IN THE TOP HALF OF THE REGISTER 
(B OR C) AND THE Y VALUE IS IN THE BOTTOM HALF 


ft 


1 


SAVE PIECE 
EMPTY SQUARE 


PUT PIECE IN NEW SQUARE 

E = NEW BOARD POSITION 
RESTORE OLD ROARD POSITION 
CONVERT IT FOR BASIC PROGRAM 


CHECK FOR PROMOTION 
TO KING 

NO => RETURN TO BASIC: 
GET PIECE 

MAKE IT A KING 


RETURN FAILURE TO 
BASIC 


THIS SUBROUTINE TAKES HL AND DE AS BOARD 
POSITIONS AND CONVERTS THEM TO X,¥ CO-ORDINATES 


( THIS WILL BE THE X,Y VALUE OF THE 
POSITION FOR THE COMPUTERS 


POSITION ) 


} CONVERT DE 


NTO C 


3 CONVERT HL. 


INTO B 


3 CONVERT HL INTO X,Y CO-ORDINATES AND RETURNS 


THE RESULT IN A, 
18 IN THE TOP HALF OF A 
3} IS IN THE BOTTOM HALF OF A 


CONVIT PUSH 


HL 

PUSH DE : 
PUSH BC 
Lp DE, BOARD 
xOR A ; 
SBC HL, DE 
DEC A 
LD DE,? 

CNVL Eau * 
INC a 
SEC HL, DE 
JR NC, CNVL 
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THE X VALUE (THE COLUMN OF THE PIECE ON THE BOARD) 


THE Y VALUE (THE ROW OF THE PIECE ON THE BOARD) 


SAVE REGISTERS 


; HL IS ADDRESS OF PIECE 


80 NEED TO SUBTRACT QUT 
ADDRESS OF BOARD TO GET 
OFFSET INTO BOARD 
LENGTH OF EACH ROW 


INCREMENT ROW NUMBER 
DECREMENT OFFSET 
IF MORE ROWS CONTINUE 


7DA4 
7DAS 
7DA4 
70A7 
7DAB 
7DA? 
7DAA 
7DAB 
7DAC 
7DAD 
7DAE 
7DAF 
7DBO 


7DEL 
7DE2 
7DB4 


7B 
7DB7 
7DEF 


7DEB 
7DER 
7DBE 
70c0 
7DC1 
7DC3 
7ocs 
7DC& 
70ce 


7DcA 
70CB 
7oec 
70cd 


47 
19 
3c 
o7 
o7 
07 
07 
80 
Gl 

D1 
EL 
co 


00 
0000 
0000 


20 
9000 
0000 


CDIS7E 
FEFF 
ce 
E67F 
FEQI 
ce 
FEO2 
284 


ES 
19 
DS 
LIFOFF 


01270 
01280 


O30 
o1zaa 
o1350 


01390 


01400 
o1410 
o14az0 
O14s0, 
o144o 
01450 


01490 


01500 


o1s10 


01570 
01580 
01896 
014600 
01610 
01620 
01630 
01840 
01450 
014660 
01670 
014680 
01490 
01700 
o1710 
01720 
01730, 
01740 
01750 


01800 
o1B10 
01820 
01830 
o1840 


i 


up BA ¢ B= ROW NUMBER CY) 
ADD HL. DE + GET BACK COLUMN NUMBER 
Lo Ask + A = COLUMN NUMBER (x) 
ING 4 } FIRST COL 1S NUMBER 4 
ALA 

RLOA + BUT IN TOP HALF OF REGISTER 
RLCA 

RLCA 

ADD ASB + ADD IN ¥ 

Por BC 

POP DE } RESTORE REGISTERS 

POP HL 

RET 


3; DATA AREA FOR NORMAL MOVES 


i 


MOVE 


FROM 
DIR 


+ DATA A 


CART 


CAPTF 
CAPTD 


01560 ; 


i 


TEST 


VEST 


DR ©} FLAG TO INDICATE IF 4 MOVE WAS FOUND 
Dw © ; BOARD ADDRESS OF FIECE TO MOVE 
Dw © 3 DIRECTION TO MOVE IT 


REA FOR CAPTURES 


DE O 3 FLAS 
Dw © 3 BOARD ADDRESS OF PIECE 
Dw © > DIRECTION TO MOVE 


TYPE OF MOVE POSSIBLE FOR PEICE AT POS (HL) 
MOVING TO FOS (HL) +(DE) 


IF A LEGAL MOVE IS POSSIBLE IT IS STORED 
IN THE DATA AREA FOR A NORMAL MOVE 


IF A PIECE CAN CAPTURE ITS MOVE IS PUT 
TN THE CAPTURE DATA AREA 


LEGAL NORMAL MOVES WHICH WOULD RESULT 
IN POSSIBLE TRAPS (IMMEDIATE CAPTURE: 
ARE SAVED ONLY IF NO OTHER MOVE HAS: 
BEEN FOUND TO DATE 


Eou e 

CALL = BRDPCE 

ce NULL 3 CHECK FOR MOVE OFF BOARD 
RET z + NO MOVE IF SO 

AND O7FH 

cr BLACK 4 OR ONTO OWN MAN, 

RET z 

cP WHITE 1 CHECK FOR A CAPTURE 

aR Z,EVALCAFT + YOE => CHECK IF VALID 


EVALUATE A NORMAL MOVE 


PUSH HL 

ADD HL, DE 

PUSH DE 

Lp DE,-10 3 CHECK FOR TRAPS 


pba 
7DD3 
7DDS 
7bDB 
7DDE 
DUD 
7DEO 
DES 
7DES 
7DE8 
7DEB 


DED 
7DEE 
TDEF 
70F2 

DFS 
7DFB 
7DFB 


DFC 
7DFC 
DEF 
7E00 
702 
TEOS 
7E04 


7EO5 
7E0S 
7E0B 
7EOR 
7EOC 


EOD 
7EOD 
7EO 
7E12 


JE13 
E14 
JES 
TE1S 
TEAT 


7e18 
7E18 
TEAS 
7E1A 
EID 
JEIE 
E20 
E21 
7EZ3 
7E26 
E29 
7E20 


CDoD7E 
2827 
LiF SFE 
CDOD7E 
2B1F 
110800 
epos7e 
2817 
110000 
CDOSTE 
280F 


D: 

EL 
228270 
EDS3E47D 
301 
32B17D 
co 


3AB17D 
a7 
28E8 
pL 

Et 

oy 


cD137e 
ES7F 
FEO? 
9 


CD137E 
FES? 
cy 
« 

ES 

19 

7eE 

EL 

cy 


ES 

19 
cb137E 
ist 
FEOO 
co 
3E01 


228770 
€DSSB97D 
cy 


o1850 
o1860 
a1a70 
o1BBe 
o1a90 
01900 
o1sLe 
01920 
01930 
01940 
01950 
01960 
o1970) 
o1980 


02060 
e2070 
02080 
02090 
02100 
02110 


02120 5 


021 
02140 
02180 
02160 
02170 
02180 
02190 
02200 
o2210 
02220 
oz230 


02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
2400 
02410 
02420 


SAVIT FOF 


TRAP = EQU 


PUSH 
ADD 
LD 
POP 
RET 


EVALCAPT EQU 
PUSH 
ADD 
CALL 
POP 
cr 
RET 


LD 
im) 


GETPCE =; «IS THERE A KING BEHIND PIECE 
2,TRAP YES & TRAP 

DE,-8 

GETPCE 

2. 7TRAP 

DE, 415 THERE ANY PIECE IN FRONT 
GETPCL = OF COMPUTERS MAN 

Z,TRAP = ¢- YES =) A TRAP 

DE, 10 

GETPCL 

2. 7TRAP 


DE NO TRAF SO SAVE MOVE 

HL 

(ROM) y HL 

(DIR) , DE 

AyL 

(MOVE) ,A } SET FLAG TO SAY MOVE FOUND 


® 
A, (MOVE) ¢ WAS A TRAP SO SEE IF ANY 


a 7 OTHER MOVES 

Z,SAVIT 4 NO => SAVE THIS ONE 

DE + ELES IGNORE 1T 

HL 

ny 4 CHECK IF PIECE AT (HL)+(DE) 
BRDPCE 

O7FH 1S ANY WHITE PIECE 

WHITE a 

* 4 CHECK IF PIECE AT (HL)+(DE) 
BRDPCE 


WHITE+KING 4 IS A WHITE KING 


HL ; RETURN PIECE AT (HL)+(DE 
HL, DE 

Ay (HL) 

HL 

* ¢ CHECK FOR A VALID CAPTURE 
HL 

HL,DE 

BROPCE ©; GET PIECE ON OTHERSIDE 
HL 3 OF PIECE TO CAPTURE 
BLANK 3 1S 17 ENPTY 

Nz 3 NO => NO CAPTURE 

at 3 YES => SAVE CAPTURE 
(CAPT) A 

(CAPTF) , HL 

(CAPTD) , DE 
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Adventure 


An adventure is a program that allows you to 
enter and explore strange new worlds, find treasures 
and battle fierce monsters. As an adventurer you must 
solve the riddles and problems of the world you wil 
enter if you are ever to leave alive. 
This program allows you to have an adventure 
on your SPECTRUM. The computer will describe the locations 
you will visit and the things you will see. Also it 
will prompt you to tell it want you want to do, The 
commands you may use consist of one or two words. You 
must always supply a verb (i.e the action you wish to do) 
and often you will need a noun (i.e the object you wish 
to perform the action on). 
Some examples are + 
‘north’ - move north and have a look around 
‘take axe ' - if there is an axe where you 
are this will tell the computer 
to try and pick it up for you 
In a few cases you will be asked for more 
information after you have given the computer a command. 
For example if you say 
"kill dragon’ the computer will ask you what 
you wish to kill it with. In this case just enter the 
name of the weapon you wish to use or nothing (just hit 
enter) if you want to use your bare hands. 
As well as giving you an adventure to play this 
program also allows you to easily create your own worlds 
for yourself or a friend to adventure in. 


How to play 


The computer will display a description of the 
location that you are in and it will describe any objects 
that you can see. It will then ask you what you want to do. 
You must then answer with a command as descibed above. 
‘The computer will try to perform your command and if all 
goes well it will go back and do this all over again. 
If hoWever your command does not work - perhaps because 
of a spelling mistake — or if you are not able to do 
the command yet the computer will print an appropriate 
message, go back and try again. 
Some of the commands you can use are 
north, south, east, west, up and down 
These allow you to move around. 


inventory - lists everything you are carrying 
take - picks up objects 
drop - drops objects 

etc 


If an object description has an adjective in it 
~ e.g ‘mean troll’, then you cannot say ‘kill troll". You 
must use ‘kill mean troll’ or just ‘kill mean’. 

Note most words may be abbreviated to one or two 
letters; provided this does not cause any ambiguity 
between words. I£ an abbreviation would match more than 
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one word the computer uses the first one it finds 

When playing an adventure it is usually a good 
idea to draw a map of the world you are exploring. Since 
many adventures contain mazes it is almost impossible to 
find your way around unless you have a good map showing 
you which way to go. 


How the program works 


This program consists of two distinct parts 
Firstly there is the data base that is in effect the 
game. It contains all the descriptions, objects and 
actions that make up the game. Secondly there is the 
program needed to allow the player to interact 
with the data base. This consists of the initialization 
for the game, getting the users input and performing 
the desired action. 


‘The data base 


The fundamental parts of this adventure are 

the locations that make up the world, a map describing 
how these locations are connected, the objects that 
exist in this world and all of the actions that the 
player may perform. The way that each of these is built 
up will now be described in more detail 


Locations 


For each location we need a description to give 

the player to tell him where he is and a list of the 
locations he can get to from where he is. As well as these 
it is often useful to have some sort of condition that 

can be applied upon entering a location. These can be 
anything from, making sure the player has a source of light 
before allowing him to enter, to performing some action 
when he enters (such as making a monster attack him if 

he is not carrying a particular object). 

‘in this program each location has a unique number 
that the computer uses to access that location. The numbers 
start at 1 and increase in increments of 1 up to the last 
location. For example this adventure has 30 locations. 


The locations exist in the program in data 
statements in the format 
line number DATA "string",N,S,E,W,U,D,condition 

The line number is the location number plus some 
constant (9000 in this game). 

The "string" is the description of the location. 

The values N,S,£,W,U,D are the locations that 
the player will end up in if he tries to go in the 
appropiate direction (north,south,..,up,down). A value of 
0 means there is nowhere to go in that direction 

The condition is the number of the condition 
to be performed upon entry to THIS location, 

Conditions consist of short pieces of program 
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located at the condition number plus a constant (7100 
in this program) 


Objects 


The information we need for each object consists 
of its description, where it is, what type of object it 
is (i.e a treasure or a monster etc), how strong it is 
and to allow greater flexibility a condition to be 
performed if the player tries to pick up this object. 
These conditions may be one that always fails to stop 
people From taking things like tables, or one to kill 
the player if he tries to take a forbidden object 

The computer knows about each object by its 
number just like locations. 

The format of the data for objects is slightly 
different than that of locations. Each object has two 
lines in the program describing {t 

The first is: 

line number DATA "string" 
where 
line number = ebject number + a constant (8000 in 
this adventure) 
and "string" is the description of the object 
The second is : 
line number DATA type,strength,condition 
where 
line number = object number + a constant (8500) 
the type is 0 for an ordinary object 
)0 for a treasure and this value is 
the score for this treasure 
(0 for a monster 
strength this is used in two ways 
for a weapon it is the value added 
to the player strength {f he uses it 
in a fight 
and for a monster it is its strength 
that is matched against the player 
e in battle 
condition is the condition to be done i 
the player tries to take this object 


Lastly we need the location for each object and 
this is stored in an array. The initial loeations for each 
object (as well as the number of objects) are stored in a 
DATA statment (at line 8000 in this program) and the 
location array is built from this. 

The values used for these locations are 
~1 - is used for objects that you cannot 

see or use, such as dead animals 

or treasures that have been returned 

to the first location. 

- is for objects being carried by the player 

) 0 - all other objects and this value is 

the location number of the object 
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The list of verbs that the player may use is 
placed in data statements (starting at 7001 in this program) 
Whenever a player types in a verb this list is searched 
to find a match. Each verb also has a number which 

the program uses to find the subroutine that performs 
the action of the verb. The verb number is equal to 

its position in the list (i.e the first verb is number 1 
and the subroutine to perform the verb is found at 

a constant + 20 * the verb number (the constant is 1480 
in this program so the first subroutine is at 1500 and 
the others every 20 lines after that). 


The following is a breakdown of the program 
LINES FUNCTION 


5-40 initialization 
fixed value variables, screen parameters 
and variables peculiar to this particular 
adventure are set up here 


50 = 110 control loop for the program 
it consists of 


1 print location description 
print any visible objects 

2 get the users input command 
perform the action the player wants 
if the action failed goto 2 
goto 1 


900 - 940 initialfzation of the variables 
peculiar to this adventure 
that is it sets up the number 
of actions and objects, builds 
the object location array and 
defines some strings which are 
common to a number of locations 

a to save memory space. 

It also sets up some variables 
that are used as conditions for 
the game such as a door being 
locked or unlocked ete 


100 - 1100 inputs the players command 
upper case is converted to lower 
case and the first two words 
of what the player typed are put 
in the variables a$ and n$ (a word 
is any sequence of characters ending 
in a space). 
The verb list is then searched for 
a$ and if it is found this subroutine 
returns the verb number to the main 
program, otherwise the player is 
prompted to try again 
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1200 - 1260 


1300 - 1311 
1500 - 1802 
1987 
1988 
1999 
2000 - 2050 
7000 ~ 7004 
7100 - 7160 
‘ 
8000 - 8525 
9001 - 9030 
9980 ~ 9981 
9990 ~ 9992 


This subroutine searches a given list 

for a given word. It is used to search 
the verbs for an action and the object 
descriptions for an object 


searches the object descriptions for 

the variable n§ (the second word typed 

in by the player) 

If it is found it returns the description 
found in the list, the object number 

and a flag to indicate that the search was 
successful, otherwise the flag is set 

to indicate failure 


This set of subroutines is used to perform 
the actions required by each verb 


This line is jumped to if some action 
fails. It prints the message "You can't" 
and sets the flag to indicate failure 


This line is jumped to if an action 
fails and the above message should not 
be printed, it just sets the flag 


This line is jumped to if an action 
succeeds, it sets the Flag to indicate 
success 


lists all the objects whose location 
is equal to the variable '1'. If none 
are found it prints "nothing" 


This area contains the verb list 
line 7000 contains the number of verbs 


These are the conditions that are done 
for taking objects or entering locations 
Note condition 0 always succeeds so if 
an object or location does not need a 
condition it is given this one 


this is the data for the objects 
this is the data for the locations 


These lines are jumped to at the end 
of the game if the player has found 
all the treasures successfully 


This section is used at the end of the game 
(either after the player has been killed 
or if he finished the game) it prints the 
score and asks if the game is to be 
replayed 


156 


How to create your own adventure 


Firstly you need a world to explore. This involves 
building into the data base the descriptions of all the 
locations to be visited along with the connections between 
them, Along with this you will need to decide what if any 
conditions will be applied to entering the locations. 

As an example let us build a world with two 
locations. These will be 

A hall stretching as far as the eye can see. 

and A small cavern. 

The hall is north of the cavern and going south 
from the hall ends up in the cavern, No other directions 
are allowed. As a condition there will be a door between 
the two locations that will be locked. The player can only 
pass between the two if the door has been unlocked. 

So we have 

9001 DATA "in a hall stretching as far as the eye 

can see",0,2,0,0,0,0,0 

9002 DATA "in a small cavern"',1,0,0,0,0,0,1 
Note doors are only one way so that entering the hall has 
no condition while entering the cavern requires that the 
the door be unlocked. 

Since the hall is the first location this will 
be where the player starts and treasures must be put. 

Now we need some objects. We already need a locked 
door and an unlocked door (at the start the locked door 
will exist between the locations but when the door is 
unlocked we will put the locked door in location -1 to 
get rid of it and replace it with the unlocked one). 
Obviously we also need a key to unlock the door. For 
a treasure let us have an emerald in the cavern. 

As well there will be a sword in the hall and a snake 
guarding the emerald. 
So we have 


object type, strength, condition location 
locked door 0 ° fail it 
unlotked door 0 0 fail -1 
key o ° ° 1 
sword 0 10 0 d 
snake -1 100 fail 2 
emerald 30 C) 2 2 


This means that the player cannot take either 
door or the snake, and the emerald can only be taken 

if condition 2 is met. We will write condition as a test 
for the snake being alive. 

The sword has a strength of 10 and the snake 100 
so if the player starts with a strength of 100 the fight 
between them should be fairly matched with a slight 
advantage to the player. 

The emerald has a score of 30, the snake is 
a monster and all else are just objects. 

In the program this would be 
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8000 DATA 6,1,-1,1,1,2,2 
8001 DATA "locked door" 
8002 DATA "unlocked door" 
8003 DATA "key" 

8004 DATA "sword" 


8005 DATA "snake" 

8006 DATA "emerald" 

8501 DATA 0,0,fa-cs (fa is the address of 
8502 DATA 0,0,fa-cs failure routine and cs 
8503 DATA 0,0,0 is the address of the 
8504 DATA 0,10,0 conditions so fa-cs is 


8505 DATA -1,100,fa-cs a condition that fails) 
8506 DATA 30,0,2 


Now we need the actions to perform. The movements 
and their subroutines as well as ‘inventory’, 'take', 
‘drop’ and 'kill' are fairly standard and will probably 
be used in all your adventures so look at the program for 
these. The other action we will have will be ‘unlock’ for 
the door, so the verb list will be 

7000 11 (this is the number of actions) 

7001 DATA "north","south","east", "west" 

7002 DATA "up","down"',"take"", "drop" 

7003 DATA "kill", "inventory", "unlock" 

The only routine we need write is for unlock. 
This needs to check if the player is in the hall and 
is carrying the key and the door is still locked. We 
now need a variable to indicate if the door is locked 
or not say ‘lu’ (remember this must be initialized at 
the start or the door may be unlocked when we thought 
it was locked). 

Unlocking, then will consist of 

1700 IF lu = 1 OR 1 () 1 OR 0(3) () 0 

THEN GO TO fa (check conditions) 
1701 LET o(1) = (get rid of locked door) 


1702 LET 0(2) = 1 (replace it with other one) 
1703 LET lu = 1 (set variable) 
1704 GO TO tr (success) 


‘ 
Now we need the conditions, we only have two 


and they are 
1 is door unlocked 
and 2 is the snake dead 
In the program these will be 
7101 GO TO faslu (if lu=O this will go to fa 
and fail, if lu=1 this will 
geto tr and succeed) 
7102 GO TO fa+(o(5)=-1) 
The second of these may need some explanation 
What it means is IF 0(5)=-1 THEN GO TO tr 
else IF 0(5)()-1 THEN GO TO fa 
It works because the statement (o0(5)=-1) 
will be equal to 1 if o(5)=-1 and it will equal 
O if 0(5) () -1, 


So now we have an adventure even though it 
is pretty small, Good luck writing your o} 


oy 
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Adventure 


940 
1000 


1010 
1020 
1030 
1040 


1050 


1051 
1060 
1070 
1080 


LET tr = 1999 = LET fa = 1998 = LET Le = 9000 
LET os = 8000 = LET oz = 8500 = LET vs = 7000 
= LET cs = 7100 + LET sc = 0 


LET vr = 1480 ¢ LET z = 9 = LET ct = 1997 = 
LET dr = 1601 = LET cx = 6 = LET st = 100 

BORDER 5 + PAPER 7 = INK 9 = CLS 

LETL=1 

GO SUB 900 

POKE 23692, 255 + RESTORE L+is = READ m* = 
PRINT "Yousare."3 m& = LET q# = "“You,see” 
GO SUB 2000 

BEEP -2, 12 = PRINT 


GO SUB 1000 

PRINT vio "4" 

GO SUB yr+yn#20 

IF # = 0 THEN GO TO 60 

PRINT = GO TO 50 

RESTORE os = READ oc = DIM afoc) 
FOR i = 1 TO ac + READ o(i) = NEXT i 


RESTORE vs = READ ve 
LET be = 0 LET Lu = G LET gu = 9 = 
LET e& naansendless.desert" = 
LET p# = "“in.a.passage" 
RETURN 
INPUT "Tell .me.what.to.do." + 
IF LEN s$ = © THEN GD TO 10 
LET at “= LET ng =" 
LET x = 0: FOR i = 1 TO LEN ss 
LET is = s#i TO i) 
IF 1% >= "A" AND is "2" THEN 
LET i* CHR® (32+ CODE i) 
IF is = “." AND x = 1 THEN LET i = LEN s® + 
6O TO 1080 
IF i¢ = «" THEN LET x = 1 + GO TO 1080 
IF «x Q THEN LET a® aStié 
IF x 1 THEN LET n& OStHis 
NEXT 1 = LET we = a = LET c = ve + LET d = vsti 


“= GO SUB 1200 


IF yn = 0 THEN PRINT 
" LNW I.don’taunderstand IRW ."3 a$ + GO TO 1000 
LET v® = y$ = RETURN 
LET vn = 0 
RESTORE d 
FOR i = 1 TO c ? READ m® + LET x = LEN mt = 


IF x > LEN w& THEN LET x = LEN we 
IF wS( TO x) = m#( TO x) THEN LET vn = i = 


LET y$ = m# = LETi =c 

NEXT 1 = RETURN 

IF n@ = "" THEN GO TO 1311 

LET we =n = LET c = oc = LET d = ost+l = 
BO SUR 1200 : IF vn = 0 THEN GO TO 1311 


PRINT y# = GO TO tr 
PRINT " LNY Tadon*t.understand ERW "3 n& = 


1500 
1520 
1540 
1560 
1580 
1600 
1601 


1602 


1603 
1604 
1605 
1610 
1611 
1620 
1621 


1622 
1624 
1625 
1626 
1630 


1631 
1640 
1641 


1642 
1643 


1644 
1645 
1660 
1661 


1662 


1663 


1664 
1665 


1666 
1670 


1671 
1672 


1673 
1678 


GO TO dr 
GO TO dr 
GO TO dr 
60 TO dr 
GO TO dr 


RESTORE L+is = READ m® = FOR i = 1 TOG 

= NEXT i 

IF nL = 0 THEN PRINT "You.can”t.go.that way” 
+ GO TO fa 

RESTORE ni+Ls + READ m®, s, Ss, S, 5, 5, 5 

READ s 

GO SUB csts + IF # = 0 THEN GO TO 1611 

IF o(1) = 0 THEN LET L = nl = GO TO tr 

PRINT “Somethingsstops.you" + GO TO fa 

GO SUB 1300 = IF f = 0 THEN RETURN 

IF o(vn) <> L THEN PRINT "It’s not .here" 
60 TO fa 

RESTORE oz+vn = READ s = IF s < 0 THEN GO TO ct 

READ s 

READ s 

GO SUB csts = IF # = 0 THEN GO TO ct 

IF cx © THEN LET cx = cx-1 = LET o(yn) = 0 = 
RETURN 

PRINT "Yousare.carrying.too,.much" = GO TO fa 

GO SUB 13500 = IF f = 9 THEN RETURN 

IF o(vn) <> O THEN PRINT “You.don’t shavesit” 


2 60 TO fa 
RESTORE oz+vn = READ s 
LET o(vn) = L + IF L = 1 AND s <> © THEN 
LET sc = scts ¢ LET ofvn) = -1 = 
PRINT 3 y$3 "vanishes" 
LET cx + IF sc = 220 THEN GO TO 9980 
RETURN 


GO SUB 1500 = IF f = O THEN RETURN 

LET t® = y$ ¢ LET mn = vn = RESTORE oz+vn = 
READ s, ms = IF s >= 0 THEN GO TO ct 

LET s = 0 = BEEP .1, 20 

«INPUT “kill .with what . 
THEN GO TO 1670 

LET c = oc ? LET d = os+1 = GO SUB 1200 + 
IF vn = 0 THEN GO TO 1662 

IF of(vn) <> O THEN GO TO 1662 

RESTORE oz+vn = READ s, s = IF s = 0 THEN 
GO TO 1462 

PRINT “awiths"3 y%3 

PRINT = LET s = stst ? IF ms > st RND #20 THEN 
GO TO 1679 

IF s > ms+ RND #15 THEN GO TO 1678 

PRINT "The." t$5 afights.back. 
.You.feel .weaker 

LET st st- RND #5 = GO TO tr 

PRINT "You,have.killed.the."3 t# = 
PRINT “Theabody .vanishes.insa.cloud .of 
asmoke" = LET o(mn) = -1 = 6O TO tr 


we: IF we = 0" 
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PRINT "Thea"; t$3 “shas.killed.you" = 
6O TO 9990 

UET Li =k @ LET R 
acarrying" + GO SUB 2000 = LET L = Li 
GO TO tr 

PRINT sc = GO TO tr 

GO SUB 1300 = IF f = 0 THEN RETURN 

IF vn <> 20 OR o(2) <> O THEN GO TO ct 


LET 0(14) = o(vn) = LET a(vn) = -1 = 
PRINT "An.ivory.key.falls .from.the 
aaa2.ceiling" = RETURN 


IF L <> 11 AND L <> 29 THEN GO TO ct 


IF L = 11 AND 0(3) <> 0 THEN PRINT "You.sink 


ato.the bottom of the. ..lake.and 
adrown" = GO TO 9990 

IF L = 11 THEN LET L = 29 = GO TO tr 

LET L = 11 = BO TO tr 

GO SUB 1500 = IF # = 0 THEN RETURN 

IF L = 1 AND 0(4) = O THEN LET 0(22) = 
LET 0(23) = L = LET Lu = 1 = RETURN 


IF L = 13 AND o(14) = © THEN LET 0(24) = 


LET o(25) = L = LET gu = 1 = RETURN 
6O TO ct 


IF 0(16) <> O ORL < 3 OR L > 10 THEN GO TO ct 


PRINT "You.Find.! 

IF L = 6 AND 0(4) 
PRINT "something" = 60 TO tr 

PRINT “nothing” = GO TO tr 

GO SUR 1500 = IF # = 0 THEN RETURN 

RESTORE oz+vn = READ s, si, s1 

IF s < © THEN GO TO ct 

GO SUB cstsi + IF # = 0 THEN GO TO ct 

PRINT "That shits.the.spot" = LET a(vn) 
RETURN 

GO SUB 1300 + IF # = 0 THEN RETURN 

IF L <> 24 OR vn <> 7 THEN GO TO 1830 

PRINT "A.bridge.appears.across,.the 
aseeachasm" = LET o(15) = L = LET be 
? GO TO tr 
INT “Nothing.happens" = GO TO fa 


IF L = 24 OR L = 26 THEN PRINT "The.fall.has 


abroken.your neck" = GO TO 9990 
60 TO 1830 
GO SUB 1300 = IF # = 0 THEN RETURN 


IF vn <> 18 THEN GO TO ct 


PRINT "That .was.delicious" + LET 0(19) 
= LET o(vn) = -1 = RETURN 

PRINT "Youscan’t" 

LET f = RETURN 

LET ¢ = RETURN 

LET x = PRINT g$ 


RESTORE os+1 = FOR i = 1 TO oc = READ m& 


IF L <> o(1) THEN GO TO 2030 

ET x =.4 2 PRINT “.ca"5 

LET 2@ = m#(1 TO 1) IF z& 
OR z$ = "i" OR 


OR 2¢ 
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-1 THEN LET 0(4) = L 


" THEN 


+ LET q# = "Yousare 


-1 


1 


otvn) 


PRINT "n"3 

2024 PRINT "4"5 ms 
2030 NEXT i 

2040 IF x 
2050 RETURN 
7000 DATA 19 


9 THEN PRINT "ssnothing" 


7001 DATA “north”, "south", "east", "west", "up". 
"down" 

7002 DATA "take", “drop", "kill", “inventory", 
“score” 

7003 DATA "cut", "swim", "unlock", “dig" 

7004 DATA “eat", "wave", “jump", “drink” 


7100 GO TO tr 

7101 GO TO fattu 

7102 GO TO fatgu 

7103 GO TO fatbe 

7104 GO TO fat(o(S) = 0) 

7105S GO TO fat+(o(il) -1) 

7196 GO TO fat(o(12) = -1) 

7107 GO TO fa*(o(1o) = -1) 

71S0 IF 0(18) <> 0 THEN GO TO tr 

7iSi LET of1@) = = LET 0(12) = -1 + PRINT 
aenter .a.pirate.steals....your scum 
wand .runs.off laughing" = 60 TO tr 


"As .you 


7160 PRINT "The.devil .kills.you" + GO TO 9990 


8000 DATA 25, 1, 12, 27, -1, 14, 17, 21, 25, 
14, 17; 20, —1, At, 2, 2, -1, 195 
=i) is, 0 

21 DATA “brass.lamp" 

BOG2 DATA “sword” 

BOOS DATA “snorkel” 

8004 DATA "large.key” 

€005 DATA "“persian.rug” 

8006 DATA "gold.coin 

8007 DATA “silver .wand" 

8008 DATA "ruby" 

8009 DATA "diamond" 

8010 DATA “mean.troll” 

8011 DATA “green.dragon" 

8012"DATA “pirate” 

BOIS DATA “devil” 

8014 DATA “ivory .skey” 

8015 DATA “crystal .bridge” 

8016 DATA “shovel” 

8017 DATA “kitchen,.table" 

BO18 DATA “bottle .of srum" 

O19 DATA “empty.bottle” 

8020 DATA “rope.tied between .the.floor .and 

ceiling" 

8021 DATA "small .lake" 

8022 DATA “locked .door" 

8023 DATA "door" 

8024 DATA “padlocked .gate” 

8025 DATA “gate 

8501 DATA z, 2, 2 

502 DATA z, 20, 7 


29, 
dy, 


12, 


8503 DATA z, z, 2 
8504 DATA z, 2, 2 
8505 DATA 10, z, 
8506 DATA 50, 2, 
8507 DATA 20, z, 
8508 DATA 30, 2, 
8509 DATA 100, z, 2 
8510 DATA -1, 87, 2 
8511 DATA -1, 110, z 
8512 DATA -1, 200, z 
@513 DATA -1, 200, z 
8514 DATA 10, z, 2 
8515 DATA z, z, z 
8516 DATA z, 2, z 
8517 DATA z, z, fa-cs 
8518 DATA z, z, z 
8519 DATA z, z, z 
8520 DATA z, z, fa-cs 
8521 DATA z, z, fa-cs 
8522 DATA z, 2, fa-cs 
8523 DATA z, z, fa-cs 
8524 DATA z, z. fa-cs 
8525 DATA z, z, fa-cs 
97001 DATA “in the.living.room,of ,a.large 
ahouse. .A.signisays.Return all 
atreasures.here.",, 2, 2) 2: Z» 2, 12) 2 
9002 DATA “inatheskitchen", z, Sp. i eh ee: Se 
DATATeS). 29) Sy Su Ss, Za Sen 
DATA e$, 3, 7, & Zz, Zs 2s 
DATA 2%; z; 6) 75 35. Zs. zs 
DATA e$, 5, 8, 2, 45 23 25 
DATA ef, z, Z, Zs 4s Zs Zs 
DATA ef, 4, 9, Zs Zy Ze 2y 
DATA ef, 8, z, 10, 2, z, 2, 2 
DATA e€, 11, 2, 2, % 2, 25 Zz 
“atadnsoasis", 2, 10, Z, Zs Zs Zs Zz 
inaaccellar";, 25. 165. 1s5: zo Le. Zo. 4 
DATA “atuthe., EXI SHI 2GATES.OF HELL EXIT GHI 0", 2. Ze 
25 124 25 205 =z 
BATA “insas LMY blackenedscavern TRU ", 2. 15, z, 
Zs Zs 2, 2 
9015 DATA p$, 14, 18, z, 16, zy zs z 
9016 DATA p#, 12, z, 15, z, Z, 17, z 
9017 DATA “inathe.piratesslair", 2, 2, 2, 2 
z,; 50 
9018 DATA p$, 15, 19, z, 2, 2, Zs z 
9019 DATA p$, 18, 2, 25 Zs Zs 23 z 
9020 DATA “in HELL... .A.devil.says.°Find.the 
aright .direction.and..live.—. E&I SHI 2else 
adie EXI SHI 0°", 30, 30, 30, 21, 30, 30, 2 
9021 DATA p%, z, 24, 22, 20, 2, z, z 
9022 DATA “insa.dead.end", z, Zz, 2, 21, Z, Zs 2 
9023 DATA " EAI O EXI SHI 2DEAD.IN.HELL EXT 7 EXT SHI 0", 2, z 
2p 2h Bae 
9024 DATA “at the.brink.of .a.sdeeps.chasm", 21, 
25, Zs Zs Zs 25 z 


NNOw 


NNNNAN 
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9025 


9026 


9027 
97028 
9029 


9030 
9980 
9981 
9990 


9991 
9992 


DATA “in.asbeautiful.jewelledshall", 24, 2, 


Leese 


3 


DATA “at .the.brink .of .a.deep. pit. .There 


aare.traces .of . 


4 EXIT ébrimstone EXI 7.here.", z, 27, 


DATA "", 2, z 
PRINT = PRINT 


PRINT = PRINT 


IF m$¢ TO 1) 


Est SHI 2fire GXI SHI O...and 
zs 


25, 2, 28, 2 
Z, 27, 18, 2 


z5 


iswimming.in.assmall lake EXT 


z 


A 
2, 2, Z, 60 


PRINT = PRINT 

PRINT "CONGRATULATIONS, ..This,adventureis 
over .and..you have returned. ..safely 
awith.all .the.treasures." 

"“SCORE."3 sc + PRINT "Do,you 

aWish .to.play.again.? 

LET m# = INKEY® 


iy 


IF m# = “" THEN GO TO 9991 
THEN GO TO 5 
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HINTS FOR PLAYING THE ADVENTURE PROGRAM 


Hints for playing the ADVENTURE program 


(1) Lost in the desert? 

Do not despair the desert is not really endless 
and if you strategically drop objects in the desert you 
should be able to make a map of the desert. You wil 
need this map to find the oasis. 


(2) Can't get through the living room door? 

You will need the key that is buried somewhere in 
the desert. To dig up the key you will of course need a 
shovel which is also outside the house - somewhere. 


(3) Stuck in HELL? 
Do what the devil says. 


(4) Can't get past the pirate? 
Try the rum. 


(5) Can't kill the dragon? 
Keep trying. 


(6) Can't find the key to the gate? 
Try the rope. 


(7) Can't cross the chasm? 
Maybe a magic wand would be of assistance. 


(8) Can't find the last treasure? 
Go swimming. 


ANNOUNCING 


1s fan Logan ithe acknowledged 
Jeading outherty on Sinclair comp. 
Inthisbook, he gives acemplete 
overview af the way the Spectrum 
operates, beth far BASIC and machine 
anguege programming. A ypecial 
section on the ROM sperating system 
willgive you insight inte this computer 
at well provide you with information 
on how fo use mgny of the routines 


present inthe ROM. This beok ia mutt [ust te mention twe, Games, utilities 
al and business pregroms 
reall in Over the Spectrum Only £6.95 


if you are seriou 
he Spectrum Only £7.95 


1 pragramming ‘educa 


After leading the way in Sinclair 2X81 software, we've 
produced the highest quality, most exciting Spectrum 
software available. From the three excellent books 
depicted above to fast-action games on cassette 
we're providing the best choice in Sinclair Spectrum 
software today, 


MELBOURNE 
HOUSE 
PUBLISHERS 


Over the Spectrum isthe book where you 
will find your dream really de come 
‘rue. yeu want to knaw how to vse 
the complete facility of the Spectrum 
‘os wellas have the fulllisting for over 
30'Spectrum programs this the book 
for you Fantastic programs such os the 
ineredible 2D-Mazemen, Alien Invaders, 


This title speaks forte, iseverything, 
you need 1o understand about Spectrum 
‘Machine Language when you're just 
sorting off A most fer all new Spectrum 
owners. Only £6 95 


Whether it's for your new Spectrum or 2X81 
Melbourne House hos books and programs perfectly 
suited to your needs 


Send for your Spectrum or 2X81 catologue today. 


U.K. Melbourne House (Publishers) Ltd., 


Glebe Gattage, Glebe House, Station Road, 


Cheddington, Leighton Buzzard, BEDS LU7 7NA 


sEtware Inc., 
ashville TN 37217. 


cedwood Drive, 


Australia & New Zealand: 
Mo Lbowrn 


House (Australia) Pty Led, 


Ibourne 3205. 


“Final entrant in the Spectrum stakes is Melbourne House's OVER THE 
SPECTRUM, and for me it runs out the clear winner. 


Not a teach-yourself-programming guide, it is a collection of 
programs: each program has a detailed breakdown of exactly what 
happens when and how its all achieved. 


The listings are not trivial, and the result is well worth the effort. 

The book is liberally illustrated in colour showing screen displays for 
almost all the programs so you know what you are trying to achieve 
at the outset. 


As a demonstration of what can be achieved using the Spectrum's 
User Defined Characters this book cannot be faulted, and although it 
contains no programming hints as such, a diligent reader is going to 
learn a lot about the Spectrum by working his or her way through it. 


Take a bow gents, and give us more.” 
PERSONAL COMPUTER WORL! 
Melbourne House Publishers 


